include file: compost.cdk 19 #if defined (DOC) ! ! Revision: ! Y. Yang Dec. 2004 ! - Added NPPCHEM and CPPCHEM for list of species for ! post-processing ! ! COMDECK: COMPOST ! -------------- ! Control of the post-processing ! -------------- ! Variables to be included in the post-processing ! . NSTAMP : CMCDATESTAMP ! . NPPCVAR : total number of variables to be post-processed, ! EXCEPT chemical species ! . CPPCVAR(20) : vector containing the names of the variables to ! . be processed, EXCEPT chemical species ! . NPPCHEM : total number of chemistry species to be post-processed ! . CPPCHEM(20) : vector containing the names of the chemistry species ! . to be processed ! . NPPLEV(NLEVPP) : if NPPLEV(JLEV) = 1, this model level is included in $ ! . post-processing, NPPLEV(JLEV) = 0, it is not included. ! . LTTOUT,LVTOUT,LHUOUT,LOLQOUT : logical that control writing in fst ! file of some dependent variables ! . LANLHU2ES : .true.: Analysis of T-Td is calculated from ! analysis of specific humidity(see varout.ftn) ! . LSWPHES : .TRUE. to consider water and ice phase ! .FALSE. to consider water phase only ! in the calculation of T-Td(see mhuaesgd2.ftn) ! . RLIMIT_ES : upper limit for T-Td #endif INTEGER NPPCVAR, NPPLEV(JPNFLEV), NSTAMP, NPPCHEM INTEGER NIP2, NDEET, NPAS, NIDATYP, NPAK INTEGER NIG1, NIG2, NIG3, NIG4 CHARACTER*4 CPPCVAR(20), CPPCHEM(20) REAL*8 RLIMIT_ES CHARACTER*1 CGRTYP CHARACTER*2 CVARPOST logical lttout,lvtout,lhuout,lolqout,lgzout logical lanlhu2es,lswphes COMMON /COMPOST/ NPPCVAR, NPPLEV, NSTAMP COMMON /COMPOST/NIG1, NIG2, NIG3, NIG4 COMMON /COMPOST/NIP2, NDEET, NPAS, NIDATYP, NPAK, NPPCHEM COMMON /COMPOSTC/ CPPCVAR, CGRTYP, CVARPOST, CPPCHEM common /comlpost/ lttout,lvtout,lhuout,lolqout,lgzout common /comlpost/lanlhu2es,lswphes common /COMPOSTR/ rlimit_es