(Sampled code only) *COMDECK PARAM C C* *PARAMETERS* CONTROLLING ARRAY SIZES. C PARAMETER( I JPM=106,JPN=106,JPK=106,JPGL=160,JPNLON=320,JPNLEV=47, I JPTASKS=4, JPLOCKS=50, I JPMP1=JPM+1, JPNP1=JPN+1, JPKP1=JPK+1, I JP2MP1=JPMP1*2, JP4MP1=JPMP1*4, I IPSP0=JPM+JPN-JPK, IPSP1=JPNP1*JPMP1, IPSP2=IPSP0*(IPSP0+1)/2, I JPSP=IPSP1-IPSP2, JP2SP=2*JPSP, I JPHGL=JPGL/2, JPNLP2=JPNLON+2, I JPNLVP1=JPNLEV+1) C C NAME TYPE PURPOSE C ---- ---- ------- C C *IP---* INTEGER USED FOR INTERMEDIATE COMPUTATIONS OF C MAIN PARAMETERS. C *JPM* INTEGER MAX ZONAL WAVE NUMBER. C *JPN* INTEGER MAX MERIDIONAL WAVE NUMBER FOR M=0. C *JPK* INTEGER MAX MERIDIONAL WAVE NUMBER. C *JPGL* INTEGER NUMBER OF GAUSSIAN LATITUDES. C *JPNLON* INTEGER MAX NUMBER OF POINTS ON EACH LATITUDE LINE. C *JPNLEV* INTEGER NUMBER OF VERTICAL LEVELS. C *JPTASKS* INTEGER MAXIMUM NUMBER OF TASKS THAT MAY CO-EXIST. C *JPLOCKS* INTEGER MAXIMUM NUMBER OF LOCKS AVAILABLE. C *JPSP* INTEGER NUMBER OF SPECTRAL COEFFICIENTS. C C ------------------------------------------------------------------ *COMDECK COMCTL C C* *COMMON* *COMCTL* - CONTROL VARIABLES FOR MODEL HOUSEKEEPING. C COMMON /COMCTL/ I NM, NN, NK, NGL, NLON, NLEV, I NLP2, NLEVP1, NHGL, I NSCAN, NRESUM, NSTOP, NROW, R DTIME, TWODT C DIMENSION I NROW(JPTASKS), C C NAME TYPE PURPOSE C ---- ---- ------- C C *NM* INTEGER MAX ZONAL WAVE NUMBER. C *NN* INTEGER MAX MERIDIONAL WAVE NUMBER FOR M=0. C *NK* INTEGER MAX MERIDIONAL WAVE NUMBER. C *NGL* INTEGER NUMBER OF GAUSSIAN LATITUDES. C *NHGL* INTEGER (NUMBER OF GAUSSIAN LATITUDES)/2. C *NLON* INTEGER MAX NUMBER OF POINTS ON EACH LATITUDE LINE. C *NLP2* INTEGER MAX NUMBER OF POINTS PER LATITUDE LINE + 2. C *NLEV* INTEGER NUMBER OF VERTICAL LEVELS. C *NLEVP1* INTEGER *NLEV+1. C *NSCAN* INTEGER CURRENT SCAN NUMBER. C *NRESUM* INTEGER TIME STEP AT WHICH THE RUN STARTED OR WAS C REUMED AFTER INTERRUPTION. C *NSTOP* INTEGER LAST TIME STEP. C *NROW* INTEGER CURRENT LATITUDE LINE. (ONE ENTRY PER TASK). C *DTIME* REAL TIME STEP (IN SECONDS). C *TWODT* REAL 2.*DTIME. C C --------------------------------------------------------------- *COMDECK COMGAU C C* *COMMON* *COMGAU* - QUANTITIES RELATED TO THE GAUSSIAN GRID. C COMMON /COMGAU/ R TWOMU, GW, BUDW C REAL R TWOMU(JPGL), GW(JPGL), BUDW(JPGL) C C NAME TYPE PURPOSE C ---- ---- ------- C C *TWOMU* REAL 2*MU (MU = SIN(LATITUDE)). C *GW* REAL GAUSSIAN WEIGHTS C *BUDW* REAL WEIGHTS FOR GLOBAL BUDGETS *BUDW=GW/NLON* C C --------------------------------------------------------------- *COMDECK COMHYB C C* *COMMON* *COMHYB* - *LOOP INDICES AND SURFACE-PRESSURE INDEPENDENT C VARIABLES ASSOCIATED WITH THE VERTICAL FINITE-DIFFERENCE SCHEME. C COMMON/COMHYB/ I NLEVM1, R CETA, CETAH C DIMENSION R CETA(JPNLEV), CETAH(JPNLVP1) C C NAME TYPE PURPOSE C ---- ---- ------- C C *NLEVM1* INTEGER (NUMBER OF LEVELS)-1. C *CETA* REAL *FULL HYBRID VERTICAL LEVELS. C *CETAH* REAL *HALF HYBRID VERTICAL LEVELS. C C --------------------------------------------------------------- *COMDECK COMDIA C C* *COMMON* *COMDIA* - QUANTITIES RELATED TO GLOBAL PHYSICAL C DIAGNOSTICS. C COMMON /COMDIA/ R DCVMOI, DCVGR, DCVGS C C NAME TYPE PURPOSE C ---- ---- ------- C C *DCVMOI* REAL CONVEC. ENVIRONMENTAL MOISTENING (ACCUMUL. M ) C *DCVGR* REAL CONVEC. GENERATION OF RAIN " C *DCVGS* REAL CONVEC. GENERATION OF SNOW " C C--------------------------------------------------------------------- *COMDECK COMRSW C C* COMMON *COMRSW* SWITCHES RELATED TO THE RADIATION SCHEME. C COMMON /COMRSW/ I NRADFR C C NAME TYPE PURPOSE C ---- ---- ------- C C *NRADFR* INTEGER *FREQUENCY OF FULL RADIATION COMPUTATIONS. C IF(NRADFR.GT.0):RAD EVERY *NRADFR* TIME STEP. C IF(NRADFR.LT.0):RAD EVERY *-NRADFR* HOURS. C C --------------------------------------------------------------- *COMDECK COMPSW C C* COMMON *COMPSW* SWITCHES RELATED TO THE PARAMETERISATIONS OF C DIABATIC PROCESSES. C COMMON /COMPSW/ L LBMADJ, I NEPHYTOP, NEADJTOPC C LOGICAL LBMADJ C C NAME TYPE PURPOSE C ---- ---- ------- C C *LBMADJ* LOGICAL *TRUE FOR BETTS-MILLER CONVECTIVE ADJUSTMENT. C *NEPHYTOP* INTEGER *TOP LEVEL FOR TROPOSPHERIC PARAMETRIZATIONS. C *NEADJTOP* INTEGER *TOP LEVEL FOR BETTS-MILLER CONVEC. (CONVECT). C C --------------------------------------------------------------- *COMDECK COMPH2 C C* COMMON *COMPH2* CONSTANTS TO COMMUNICATE BETWEEN THE MAIN PROGRAM C AND THE PHYSICAL SUBROUTINES (EXCEPT RADIATION C ONES). C COMMON /COMPH2/ R CBMTS, CBMTD, CBMEF C C NAME TYPE PURPOSE C ---- ---- ------- C C *CBMTS* REAL *ADJUSTMENT TIMESCALE IN SECONDS FOR BETTS- C MILLER SHALLOW CONVECTION. C *CBMTD* REAL *ADJUSTMENT TIMESCALE IN SECONDS FOR BETTS- C MILLER DEEP CONVECTION. C *CBMEF* REAL *DOWNDRAUGHT EFFICIENCY FOR BETTS-MILLER DEEP C CONVECTION. C C --------------------------------------------------------------- *COMDECK COMCON C C* COMMON *COMCON* BASIC UNIVERSAL CONSTANTS AND DERIVED CONSTANTS. C COMMON /COMCON/ R API, A, OMEGA, G, R CPD, CPV, RD, RV, R RCPD, VTMPC1, VTMPC2, R RHOH2O, ALV, ALS, ALF, CLW, TMELT, R SOLC, STBO, DAYL, YEARL, R C1ES, C2ES, C3LES, C3IES, C4LES, C4IES, R C5LES, C5IES C C NAME TYPE PURPOSE C ---- ---- ------- C C *API* REAL *2.*ARCSIN(1.). C *A* REAL *RADIUS OF THE EARTH. C *OMEGA* REAL *SOLID ROTATION VELOCITY OF THE EARTH. C *G* REAL *GRAVITY ACCELERATION. C *CPD* REAL *SPECIFIC HEAT AT CONSTANT PRESSURE (DRY AIR). C *CPV* REAL * IDEM (WATER VAPOUR). C *RD* REAL *GAS CONSTANT FOR DRY AIR. C *RV* REAL * IDEM FOR WATER VAPOUR. C *RCPD* REAL *RCPD=1./CPD. C *VTMPC1* REAL *VTMPC1=RV/RD-1. C *VTMPC2* REAL *VTMPC2=CPV/CPD-1. C *RHOH2O* REAL *DENSITY OF LIQUID WATER. C *ALV* REAL *LATENT HEAT FOR VAPORISATION. C *ALS* REAL *LATENT HEAT FOR SUBLIMATION. C *ALF* REAL *LATENT HEAT FOR FUSION. C *CLW* REAL *SPECIFIC HEAT FOR LIQUID WATER. C *TMELT* REAL *TEMPERATURE OF FUSION OF ICE. C *SOLC* REAL *SOLAR CONSTANT. C *STBO* REAL *STEPHAN BOLTZMANN CONSTANT. C *DAYL* REAL *LENGTH OF THE DAY (IN SECONDS). C *YEARL* REAL *LENGTH OF THE YEAR (IN DAYS). C *C__ES* REAL *CONSTANTS USED FOR COMPUTATION OF SATURATION C MIXING RATIO OVER LIQUID WATER(*C_LES*) OR C ICE(*C_IES*). C *COZ__* REAL *REFERS TO *OZONE. C *C___C* REAL *REFERS TO *COS COMPONENT. C *C___S* REAL *REFERS TO *SIN COMPONENT. C C --------------------------------------------------------------- *COMDECK COMDIZ C C* *COMMON* *COMDIZ* VARIABLES AND POINTERS FOR ZONAL MEAN DIAGNOSTICS C COMMON /COMDIZ/ I NUMZLS, I NDTCUML, NDTCUMS, I NDQCUML, NDQCUMS, NDUCUML, NDUCUMS, NDVCUML, NDVCUMS, I NDECUML, NDECUMS, I NDTSCVL, NDTSCVS, NDQSCVL, NDQSCVS, NDUSCVL, NDUSCVS, I NDVSCVL, NDVSCVS, NDESCVL, NDESCVS, I NFRACC, L LZLS, I NLANDP, NSEAP C LOGICAL LZLS C DIMENSION I NLANDP(JPGL), NSEAP(JPGL) C C POINTERS TO ZONAL MEAN DIAGNOSTICS C POINTERS TO ZONAL AND LATITUDINAL MEAN DIAGNOSTICS C NUMBER OF LANDPOINTS PER ROW C NUMBER OF POINTS IN MASK ARRAY C C* VARIABLE PURPOSE (ALL VARIABLES ARE INTEGER). C -------- ------- ---------------------------- C C *NUMZLS* : NUMBER OF ZONAL LAND-SEA DIAGNOSTICS. C C *NDTCUML*: TENDENCIES OF SENSIBLE HEAT BY CUMULUS CONV/OVER LAND. C *NDTCUMS*: TENDENCIES OF SENSIBLE HEAT BY CUMULUS CONV/ OVER SEA. C *NDQCUML*: TENDENCIES OF LATENT HEAT BY CUMULUS CONV/ OVER LAND. C *NDQCUMS*: TENDENCIES OF LATENT HEAT BY CUMULUS CONV/ OVER SEA. C *NDUCUML*: TENDENCIES OF U MOMENTUM BY CUMULUS CONV/ OVER LAND. C *NDUCUMS*: TENDENCIES OF U MOMENTUM BY CUMULUS CONV/ OVER SEA. C *NDVCUML*: TENDENCIES OF V MOMENTUM BY CUMULUS CONV/ OVER LAND. C *NDVCUMS*: TENDENCIES OF V MOMENTUM BY CUMULUS CONV/ OVER SEA. C *NDECUML*: TENDENCIES OF KIN/ENERG/DISS/ BY CUMULUS CONV/OVER LAND. C *NDECUMS*: TENDENCIES OF KIN/ENERG/DISS/ BY CUMULUS CONV/ OVER SEA. C C *NDTSCVL*: TENDENCIES OF SENSIBLE HEAT BY SHALLOW CONV/ OVER LAND. C *NDTSCVS*: TENDENCIES OF SENSIBLE HEAT BY SHALLOW CONV/ OVER SEA. C *NDQSCVL*: TENDENCIES OF LATENT HEAT BY SHALLOW CONV/ OVER LAND. C *NDQSCVS*: TENDENCIES OF LATENT HEAT BY SHALLOW CONV/ OVER SEA. C *NDUSCVL*: TENDENCIES OF U MOMENTUM BY SHALLOW CONV/ OVER LAND. C *NDUSCVS*: TENDENCIES OF U MOMENTUM BY SHALLOW CONV/ OVER SEA. C *NDVSCVL*: TENDENCIES OF V MOMENTUM BY SHALLOW CONV/ OVER LAND. C *NDVSCVS*: TENDENCIES OF V MOMENTUM BY SHALLOW CONV/ OVER SEA. C *NDESCVL*: TENDENCIES OF KIN/ENERG/DISS BY SHALLOW CONV OVER LAND C *NDESCVS*: TENDENCIES OF KIN/ENERG/DISS/ BY SHALLOW CONV/ OVER SEA. C C *NLANDP* : ARRAY WHICH CONTAINS NUMBER OF LANDPOINTS PER ROW. C (DIMENSION: JPGL) C *NSEAP* : ARRAY WHICH CONTAINS NUMBER OF SEAPOINTS PER ROW. C (DIMENSION: JPGL) C C *NFRACC* : CONTROLS RESETTING OF ACCUMULATED DIAGNOSTICS. C >0: DIAGNOSTICS ARE ACCUMULATED FROM BEGINNING C OF INTEGRATION: ZONAL MEAN DIAGNOSTICS ARE C ACCUMULATED EVERY NFRACC STEPS, LAT-LONG C DIAGNOSTICS EVERY STEP. C <0: ALL DIAGNOSTICS ARE ACCUMULATED EVERY STEP C BUT ARE RESET TO ZERO EVERY -NFRACC STEPS. C *LZLS* : LOGICAL SWITCH FOR LAND-SEA ZONAL DIAGNOSTIC CALCULATION C C --------------------------------------------------------------- *COMDECK COMMSK C C* *COMMON* *COMMSK* VARIABLES FOR AREA MEAN DIAGNOSTICS. C COMMON /COMMSK/ L LMASK, I NFRMSK C LOGICAL LMASK C C* VARIABLE PURPOSE C -------- ------- C C *LMASK* LOGICAL SWITCH FOR MASK DIAGNOSTIC CALCULATION C *NFRMSK* FREQUENCY OF MASK DIAGNOSTIC CALCULATIONS C C --------------------------------------------------------------- *COMDECK COMSDS C C* *COMMON* *COMSDS* - START/RESTART BLOCK. C COMMON /COMSDS/ I NSTART, NSTEP C C NAME TYPE PURPOSE C ---- ---- ------- C C *NSTART* INTEGER TIME STEP FOR START/RESTART. C *NSTEP* INTEGER CURRENT TIME STEP. C C --------------------------------------------------------------- *COMDECK COMTASK C C* *COMMON* *COMTASK* - TASK RELATED VARIABLES. C COMMON /COMTASK/ I NTASKS, NLOCKS C DIMENSION I NLOCKS(JPLOCKS) C C NAME TYPE PURPOSE C ---- ---- ------- C C *NTASKS* INTEGER MAXIMUM NUMBER OF TASKS. C *NLOCKS* INTEGER PRE-ASSIGNED LOCKS. C C ---------------------------------------------------------------