Information on variables used in scm_parm.F (SCM) Name Type Description --------------------------------------------------- IBUF INTEGER --- IDAT INTEGER --- LV1 INTEGER --- LV2 INTEGER --- N INTEGER --- AA REAL --- AB REAL(1,100) --- FTATOT REAL($SFDTOUT$,ILEV) TOTAL FORCED TEMPERATURE ADVECTION FQATOT REAL($SFDTOUT$,ILEV) TOTAL FORCED MOIST ADVECTION FOMEG REAL($SFDTOUT$,ILEV) FORCED VERTICAL MOTION FT REAL($SFDTOUT$,ILEV) FORCED TEMPERATURE FQ REAL($SFDTOUT$,ILEV) FORCED SPECIFIC HUMIDITY FU REAL($SFDTOUT$,ILEV) FORCED ZONAL WIND FV REAL($SFDTOUT$,ILEV) FORCED MERIDIONAL WIND FTAHOR REAL($SFDTOUT$,ILEV) FORCED TEMPERATURE ADVECTION FQAHOR REAL($SFDTOUT$,ILEV) FORCED MOIST ADVECTION FS REAL($SFDTOUT,$SMAXVAR) FORCED SURFACE FIELDS FRAD REAL($SRAD_FDTOUT,ILEV) FORCED RADIATIVE HEATING RATES VA DIMENSION(IVA) THE WORK SPACE FOR THE LONGWAVE RADIATION CALCULATION WRK DIMENSION(IWRK) --- IRL INTEGER(80) ASSOCIATED POINTER ARRAY IRS INTEGER(60) ASSOCIATED POINTER ARRAY ICD INTEGER(80) HOLDS LOCATION OF POINTERS FOR WORK ARRAY "VA" - EXTRA WORK SPACE FOR CCRN I/O GLL REAL(1000) --- WRKS REAL(1000) --- - !zm: added for bomex !!! lsw REAL(ilg,ilev) --- cde REAL(ilg) --- t_f REAL(ilev) --- q_f REAL(ilev) --- tlg_lsw REAL(ilev) --- qtg_lsw REAL(ilev) --- UTG1 REAL(ILG,ILEV) --- VTG1 REAL(ILG,ILEV) --- TLG1 REAL(ILG,ILEV) --- QTG1 REAL(ILG,ILEV) --- - U REAL(ILG,ILEV) ZONAL WIND V REAL(ILG,ILEV) MERIDIONAL WIND Q REAL(ILG,LEV) SPECIFIC HUMIDITY TH REAL(ILG,LEV) --- TKE REAL(ILG,ILEV) --- TSGB REAL(ILG,ILEV) --- TF REAL(ILG,LEV) --- QL REAL(ILG,LEV) --- CLF REAL(ILG,LEV) --- QLTE REAL(ILG,ILEV) --- QI REAL(ILG,LEV) --- QNI REAL(ILG,ILEV) --- QNL REAL(ILG,ILEV) --- QITE REAL(ILG,ILEV) --- QNITE REAL(ILG,ILEV) --- QNLTE REAL(ILG,ILEV) --- QLI REAL(ILG,LEV) --- QAP REAL(ILG,ILEV) --- SO4 REAL(ILG,ILEV) --- TKEM REAL(ILG,ILEV) --- HFS REAL(ILG) SURFACE SENSIBLE HEAT FLUX USTAR REAL(ILG) --- ZOL REAL(ILG) --- QFS REAL(ILG) SURFACE MOISTURE FLUX EF REAL(ILG) --- QG REAL(ILG) GROUND MOISTURE GT REAL(ILG) GROUND TEMPERATURE Z0 REAL(ILG) --- RHG REAL(ILG) --- CL REAL(ILG) --- WTTOP REAL(ILG) --- SHXKJ REAL(ILG,ILEV) GRID SLICE OF LOCAL SH**KAPA SHJ REAL(ILG,ILEV) GRID SLICE OF LOCAL HALF-LEVEL SIGMA VALUES SGBJ REAL(ILG,ILEV) BASES DES COUCHES DU VENT DSGJ REAL(ILG,ILEV) EPAISSEURS SIGMA DES COUCHES DU VENT SHTJ REAL(ILG,LEV) GRID SLICE OF LOCAL HALF-LEVEL SIGMA INTERFACE VALUES SGJ REAL(ILG,ILEV) MILIEU DES COUCHES DU VENT P REAL(ILG,ILEV) --- DSHJ REAL(ILG,ILEV) LOCAL SIGMA HALF-LEVEL THICKNESS PRESSG REAL(ILG) ROW OF SURFACE PRESSURE IN PA SHTXKJ REAL(ILG,ILEV) --- SHTOPJ REAL(ILG) --- ZLEV REAL(ILG,ILEV) --- ETA REAL(ILG,ILEV) --- ZL REAL(ILG,ILEV) --- DUDZ REAL(ILG,ILEV) --- DVDZ REAL(ILG,ILEV) --- DTLDZ REAL(ILG,ILEV) --- DQTDZ REAL(ILG,ILEV) --- DSDZ REAL(ILG,ILEV) --- DUDS REAL(ILG,ILEV) --- DVDS REAL(ILG,ILEV) --- DTLDS REAL(ILG,ILEV) --- DQTDS REAL(ILG,ILEV) --- ALPHA REAL(ILG,ILEV) ARRAY OF VERTICAL DIFFERENCING USED (=1. FOR UPSTREAM) TLTL REAL(ILG,ILEV) --- QTQT REAL(ILG,ILEV) --- TLQT REAL(ILG,ILEV) --- BTLTV REAL(ILG,ILEV) --- BQTTV REAL(ILG,ILEV) --- WTL REAL(ILG,ILEV) --- BWTV REAL(ILG,ILEV) --- WU REAL(ILG,ILEV) --- WV REAL(ILG,ILEV) --- WW REAL(ILG,ILEV) --- WQT REAL(ILG,ILEV) --- RKM REAL(ILG,ILEV) --- RKH REAL(ILG,ILEV) --- RKE REAL(ILG,ILEV) --- CGH REAL(ILG,ILEV) --- CGQ REAL(ILG,ILEV) --- CGE REAL(ILG,ILEV) --- RKQ REAL(ILG,ILEV) --- FRACW REAL(ILG,ILEV) --- PRET REAL(ILG,2) ROW OF PRECIPITATION RATE (PRECIPITABLE WATER IN METRES) TP REAL(ILG,ILEV) --- WP REAL(ILG,ILEV) --- QSL REAL(ILG,ILEV) --- DQ REAL(ILG,ILEV) --- TL REAL(ILG,ILEV) --- SIGMA REAL(ILG,ILEV) --- RHOA REAL(ILG,ILEV) --- QLWP REAL(ILG,ILEV) --- QFRP REAL(ILG,ILEV) --- VFP REAL(ILG,ILEV) --- QFP REAL(ILG,ILEV) --- RF REAL(ILG,ILEV) --- PCPDH REAL(ILG) PRECIPITATION RATE SUMQ REAL(ILG) --- THETA REAL(ILG,ILEV) --- THETAV REAL(ILG,ILEV) --- THETAL REAL(ILG,ILEV) --- QT REAL(ILG,ILEV) --- LHVOCP REAL(ILG,ILEV) --- WSTAR REAL(ILG) --- TSTARS REAL(ILG) --- TSTAR REAL(ILG) --- BLTH REAL(ILG) --- WSTARINT REAL(ILG) --- VMOD REAL(ILG,ILEV) --- RIB REAL(ILG,ILEV) --- ALPHASLT REAL(ILG) --- PRANDSLT REAL(ILG) --- PRAND REAL(ILG,ILEV) --- TAU REAL(ILG,ILEV) --- WTLSLT REAL(ILG) --- TKE0 REAL(ILG) --- WW0 REAL(ILG) --- ZTOH REAL(ILG,ILEV) --- PBLT REAL(ILG) ROW OF PBL TOP INDICES THETAVS REAL(ILG) --- A REAL(ILG,ILEV) --- B REAL(ILG,ILEV) --- C REAL(ILG,ILEV) --- RHS REAL(ILG,ILEV) --- AGT REAL(ILG,ILEV) --- BGT REAL(ILG,ILEV) --- CGT REAL(ILG,ILEV) --- IPBL INTEGER(ILG) --- UTG REAL(ILG,ILEV) --- VTG REAL(ILG,ILEV) --- TTG REAL(ILG,ILEV) --- QTG REAL(ILG,LEVS) --- UTEND REAL(ILG,ILEV) --- VTEND REAL(ILG,ILEV) --- QTEND REAL(ILG,ILEV) --- TTEND REAL(ILG,ILEV) --- - VERT SGB REAL(ILEV) --- SHB REAL(ILEV) --- SG REAL(ILEV) SIGMA VALUES AT MID POINT OF MOMENTUM LAYERS SH REAL(ILEV) SIGMA VALUES AT MID POINT OF THERMODYNAMIC LAYERS ACG REAL(ILEV) INFO. SUR POSITION DES MILIEUX DE COUCHES BCG REAL(ILEV) INFO. SUR POSITION DES MILIEUX DE COUCHES ACH REAL(ILEV) INFO. SUR POSITION DES MILIEUX DE COUCHES BCH REAL(ILEV) INFO. SUR POSITION DES MILIEUX DE COUCHES AG REAL(ILEV) INFO. SUR POSITION DES BASES DE COUCHES AH REAL(ILEV) INFO. SUR POSITION DES BASES DE COUCHES BG REAL(ILEV) INFO. SUR POSITION DES BASES DE COUCHES BH REAL(ILEV) INFO. SUR POSITION DES BASES DE COUCHES DB REAL(ILEV) --- D2B REAL(ILEV) --- LS INTEGER(ILEV) 1000*SG LH INTEGER(ILEV) 1000*SH - SURFLUX CDM REAL(ILG) STABILITY-DEPENDENT DRAG COEFFICIENT FOR MOMENTUM. CDH REAL(ILG) STABILITY-DEPENDENT DRAG COEFFICIENT FOR HEAT. RIBS REAL(ILG) BULK RICHARDSON NUMBER. CFLUX REAL(ILG) CD * MOD(V), BOUNDED BY FREE-CONVECTIVE LIMIT. ZOM REAL(ILG) ROUGHNESS HEIGHTS FOR MOMENTUM NORMALIZED BY REFERENCE HEIGHT. ZOH REAL(ILG) ROUGHNESS HEIGHTS FOR HEAT NORMALIZED BY REFERENCE HEIGHT. CRIB REAL(ILG) -RGAS*SLTHKEF/(VA**2), SLTHKEF=-LOG(MAX(SGJ(ILEV),SHJ(ILEV))) TVIRTG REAL(ILG) "SURFACE" VIRTUAL TEMPERATURE. TVIRTA REAL(ILG) LOWEST LEVEL VIRTUAL TEMPERATURE. VWA REAL(ILG) AMPLITUDE OF LOWEST LEVEL WIND. FCT REAL(ILG) FRACTION OF SURFACE TYPE BEING STUDIED. ITER INTEGER(ILG) INDEX ARRAY INDICATING IF POINT IS UNDERGOING FURTHER ITTERATION OR NOT. TG REAL(ILG,ILEV) --- BFS REAL(ILG) --- ZREF REAL(ILG) --- - TGCAL2 AND RELHUMC TSG REAL(ILG,ILEV) --- RH REAL(ILG,ILEV) --- H REAL(ILG,LEV) GRID SLICE OF LOCAL RELATIVE HUMIDITY - CLOUDS9 CLAFAC REAL(ILG,NINTSW,LEV) --- CMTX REAL(ILG,LEVP1,LEVP1) --- GC REAL(ILG) --- TAC REAL(ILG,NINTSW,LEV) --- TCV REAL(ILG) ROW OF INDICES OF TOP MOST CONVECTIVE LAYER CLD REAL(ILG,ILEV) CLOUD COVER CLDT REAL(ILG) TOTAL CLOUD COVER CLW REAL(ILG,ILEV) --- CLWT REAL(ILG) --- CIC REAL(ILG,ILEV) --- CICT REAL(ILG) --- - OZON8 OZ REAL(ILG,LEV) --- OZZXJ REAL(ILG,LEVOZ) --- JL INTEGER(ILG) --- ILSL INTEGER(ILG) --- - RADNEW7 HRS REAL(ILG,ILEV) --- HRL REAL(ILG,ILEV) --- FSG REAL(ILG) --- FDL REAL(ILG) --- EMD REAL(ILG,LEV) --- EMM REAL(ILG,LEV) --- ALSW REAL(ILG) --- ALLW REAL(ILG) --- FSV REAL(ILG) --- FSI REAL(ILG) --- FSD REAL(ILG) --- FSF REAL(ILG) INCIDENT SW RADIATION AT SURFACE CST REAL(ILG) INTERPOLATED TOT. TEMPERATURE ADVECTION CSB REAL(ILG) --- CLT REAL(ILG) --- CLB REAL(ILG) --- CSZ REAL(ILG) --- HRTL REAL(ILG,ILEV) --- HRLL REAL(ILG,ILEV) --- HRSL REAL(ILG,ILEV) --- AWVRAD REAL(ILG,LEV) --- COMEGA REAL(ILG,NINTSW,LEV) --- APAD REAL(NINTSW,3,7) --- BPAD REAL(NINTSW,3,7) --- D REAL(NINTSW,3) --- CRAY REAL(NINTSW,6) --- SUN REAL(NINTSW) --- - AEROSOL ARRAYS (FORMERLY USED IN AEROS2 SUBROUTINE) TAUA REAL(NINTSW,5) --- SSCALB REAL(NINTSW,5) --- CGA REAL(NINTSW,5) --- RADJ REAL*8(ILG) --- LCSW LOGICAL --- LCLW LOGICAL --- - CONV4 TH0 REAL(ILG,LEV) GRID SLICE OF TEMPERATURE QH0 REAL(ILG,LEV) --- QH0(1,2) REAL(ILG,LEV) GRID SLICE OF SPECIFIC HUMIDITY QH0(1,LEV) REAL(ILG,LEV) ROW OF SCREEN-LEVEL SPECIFIC HUMIDITY U0 REAL(ILG,ILEV) GRID SLICE OF U-WIND (REAL) V0 REAL(ILG,ILEV) GRID SLICE OF V-WIND (REAL) UTGC REAL(ILG,ILEV) --- VTGC REAL(ILG,ILEV) --- PRETOT REAL(ILG) --- TF0 REAL(ILG,LEV) --- - MISC UGW REAL(ILG,ILEV) --- VGW REAL(ILG,ILEV) --- UGW0 REAL(ILG, ILEV) --- VGW0 REAL(ILG, ILEV) INITIAL UGW AND VGW SET IN INITIAL COND FILE (SKRAS MODIF) - CLASS SIC REAL(ILG) --- FCAN REAL(ILG,5) --- ALVC REAL(ILG,5) --- ALIC REAL(ILG,5) --- LNZ0 REAL(ILG,5) --- LAMN REAL(ILG,4) --- CMAS REAL(ILG,4) --- ROOT REAL(ILG,4) --- TBAR REAL(ILG,3) SOIL LAYER TEMPERATURE SNO REAL(ILG) --- WF REAL(ILG) --- WL REAL(ILG) --- SOIL REAL(ILG,3,3) --- SBND REAL(ILG,2) --- FOZON REAL(12,37) --- ENV REAL(ILG) --- GAM REAL(ILG) --- PSI REAL(ILG) --- ALPH REAL(ILG) --- DELTG REAL(ILG) --- SIGX REAL(ILG) --- RHOS REAL(ILG) --- ALBS REAL(ILG) --- GTA REAL(ILG) --- TCAN REAL(ILG) --- TSNO REAL(ILG) --- STMX REAL(ILG) --- STMN REAL(ILG) --- ALSWW REAL(ILG) --- ALLWW REAL(ILG) --- CMAI REAL(ILG) --- THIC REAL(ILG,3) SOIL LAYER VOLUMETRIC FROZEN WATER CONTENT THLQ REAL(ILG,3) SOIL LAYER VOLUMETRIC LIQUID WATER CONTENT TT REAL(ILG) --- ZALBS REAL(ILG) --- ZALBP REAL(ILG) --- TFX REAL(ILG) --- QFX REAL(ILG) --- ROF REAL(ILG) --- SFCT REAL(ILG) --- SFCQ REAL(ILG) --- SFCU REAL(ILG) --- SFCV REAL(ILG) --- WCAN REAL(ILG) --- SCAN REAL(ILG) --- ZSNO REAL(ILG) --- QEVAP REAL(ILG) --- RES REAL(ILG) --- BEGW REAL(ILG) --- BWGW REAL(ILG) --- BEG REAL(ILG) --- BWG REAL(ILG) --- FSGV REAL(ILG) --- FSGG REAL(ILG) --- FLGV REAL(ILG) --- FLGG REAL(ILG) --- HFSC REAL(ILG) SURFACE SENSIBLE HEAT FLUX HFSG REAL(ILG) SURFACE SENSIBLE HEAT FLUX HMFC REAL(ILG) --- HMFN REAL(ILG) --- HTCS REAL(ILG) --- HTCC REAL(ILG) --- PCFC REAL(ILG) --- PCLC REAL(ILG) --- PCPN REAL(ILG) PRECIPITATION RATE PCPG REAL(ILG) PRECIPITATION RATE QFG REAL(ILG) --- QFN REAL(ILG) --- QFCL REAL(ILG) --- QFCF REAL(ILG) --- FSGS REAL(ILG) --- FLGS REAL(ILG) --- HFSS REAL(ILG) SURFACE SENSIBLE HEAT FLUX ROFC REAL(ILG) --- ROFN REAL(ILG) --- ROFO REAL(ILG) --- WTRC REAL(ILG) --- WTRS REAL(ILG) --- WTRG REAL(ILG) --- HEVC REAL(ILG) --- HEVS REAL(ILG) --- HEVG REAL(ILG) --- HTC REAL(ILG,3) --- QFC REAL(ILG,3) --- HMFG REAL(ILG,3) --- TS REAL(ILG) --- QS REAL(ILG) --- DR REAL(ILG) --- FSVH REAL(ILG) --- FSIH REAL(ILG) --- FSA REAL(ILG) --- FLA REAL(ILG) --- FSAW REAL(ILG) --- FLAW REAL(ILG) --- - ADDITIONAL CLASS13 ARRAYS HFSROL REAL(ILG) SURFACE SENSIBLE HEAT FLUX QFSROL REAL(ILG) --- ROFROL REAL(ILG) --- ALSWROL REAL(ILG) --- ALLWROL REAL(ILG) --- FSGROL REAL(ILG) --- SICN REAL(ILG) --- CBGO REAL(ILG) --- MASK REAL(ILG) --- DSIC REAL(ILG) --- GTROL REAL(ILG) --- SICROL REAL(ILG) --- SICNROL REAL(ILG) --- GTROM REAL(ILG) --- SICROM REAL(ILG) --- SICNROM REAL(ILG) --- BEGROL REAL(ILG) --- BWGROL REAL(ILG) --- GTPREV REAL(ILG) --- LAMX REAL(ILG,4) --- GCPREV REAL(ILG) --- SAND REAL(ILG,3) --- CLAY REAL(ILG,3) --- ORGM REAL(ILG,3) --- PRE REAL(ILG) --- DPTH REAL(ILG) --- DRN REAL(ILG) --- TBAS REAL(ILG) --- FSFROL REAL(ILG) --- FDLROL REAL(ILG) --- FSDROL REAL(ILG) --- FSNO REAL(ILG) --- SNOF REAL(ILG) --- WLAS REAL(ILG) --- WFAS REAL(ILG) --- WLA REAL(ILG) --- WFA REAL(ILG) --- QEVP REAL(ILG) --- SNOM REAL(ILG) --- FC REAL(ILG) --- FCS REAL(ILG) --- SKY REAL(ILG) --- SKYS REAL(ILG) --- LC INTEGER(ICANP1) --- LG INTEGER(IGND) --- - C====== Simon Kras -- Variable declarations:========== - C====== Extra switches and initial specs received from - C====== PARAM.DAT OUTFIELD_SWITCHES LOGICAL(N_OUTFIELDS) DETERMINES WHAT FIELDS ARE SAVED TO OUTPUT FILE. - 1:U,2:V,3:Q,4:QL,5:QI,6:PCP,7:P,8:TH,9:THETA,10:THETAL,11:THETAV12:TKE MODULE_SWITCHES LOGICAL(N_MODULES) DETERMINES WHICH MODULES SHOULD BE ACTIVE - 1:SURFLUX,2:THCAL3,3:THCAL2,4:CONV4,5:RELHUMC,6:THCAL3(2ND CALL),7:GEOS,8:CLDOPT - NUDGING FILENAMES AND COUNTS: NUDG_FILE CHARACTER(80)(NUDG_NUM) NUDGING FILENAMES NF_COUNTS INTEGER(NUDG_NUM) STARTING COUNTS INI_LEV REAL (LEVS_INI) LEVEL VALUES NUDG_LEV REAL (LEVS_NUDG) LEVEL VALUES FORC_LEV REAL (LEVS_FORC) LEVEL VALUES NUDG_CALL LOGICAL=.FALSE. --- - FORCING FILES FORC_FILE CHARACTER(80)(FORC_NUM) FORCING FILENAMES FF_COUNTS INTEGER(FORC_NUM) FORCING COUNTS FORC_CALL LOGICAL=.FALSE. --- - NUDGING FIELDS: T_NG REAL(ILG,ILEV) --- U_NG REAL(ILG,ILEV) --- V_NG REAL(ILG,ILEV) --- Q_NG REAL(ILG,ILEV) --- UGW_NG REAL(ILG,ILEV) --- VGW_NG REAL(ILG,ILEV) --- ZTHOBS REAL(ILG,ILEV,2) --- ZUHOBS REAL(ILG,ILEV,2) --- ZVHOBS REAL(ILG,ILEV,2) --- ZQHOBS REAL(ILG,ILEV,2) --- ZAPHOBS REAL(ILG,ILEV,2) --- ZUGW REAL(ILG,ILEV,2) --- ZVGW REAL(ILG,ILEV,2) --- - FORCING FIELDS: UTENDF REAL(ILG,ILEV) --- VTENDF REAL(ILG,ILEV) --- QTENDF REAL(ILG,ILEV) --- TTENDF REAL(ILG,ILEV) --- ZTHFORC REAL(ILG,ILEV,2) --- ZUHFORC REAL(ILG,ILEV,2) --- ZVHFORC REAL(ILG,ILEV,2) --- ZQHFORC REAL(ILG,ILEV,2) --- - FIXRADHT REAL(ILG,ILEV) FIXED RADIATIVE HEATING CAPE REAL(ILG) CONVECTIVE AVAILABLE PE - DECLARE OUTPUT ARRAYS FOR MODEL TIME SERIES. THTS REAL(0:ITSD,ILEV) TEMPERATURE UTS REAL(0:ITSD,ILEV) ZONAL WIND VTS REAL(0:ITSD,ILEV) MERIDIONAL WIND QTS REAL(0:ITSD,ILEV) SPECIFIC HUMIDITY PCPTS REAL(0:ITSD,1) PRECIPITATION RATE CLDTS REAL(0:ITSD,ILEV) TOTAL CLOUD COVER GTTS REAL(0:ITSD,1) GROUND TEMPERATURE QGTS REAL(0:ITSD,1) GROUND MOISTURE THLQTS REAL(0:ITSD,3) SOIL LAYER VOLUMETRIC LIQUID WATER CONTENT THICTS REAL(0:ITSD,3) SOIL LAYER VOLUMETRIC FROZEN WATER CONTENT TBARTS REAL(0:ITSD,3) SOIL LAYER TEMPERATURE FTATS REAL(0:ITSD,ILEV) INTERPOLATED TOT. TEMPERATURE ADVECTION FUTS REAL(0:ITSD,ILEV) INTERPOLATED ZONAL WIND FVTS REAL(0:ITSD,ILEV) INTERPOLATED MERIDIONAL WIND FQATS REAL(0:ITSD,ILEV) INTERPOLATED TOTAL MOIST ADVECTION FRADTS REAL(0:ITSD,ILEV) INTERPOLATED RADIATIVE HEATING RATES THTEND REAL(ILG,ILEV) --- TATEND REAL(ILG,ILEV) --- PWATTS REAL(0:ITSD,1) PRECIPITABLE WATER CAPETS REAL(0:ITSD,1) CONVECTIVE AVAILABLE PE CLDTTS REAL(0:ITSD,1) TOTAL CLOUD COVER HMNTS REAL(0:ITSD,ILEV) MOIST STATIC ENERGY ATOALU REAL(0:ITSD,1) TOP OF ATMOSPHERE UPWELLING LW FLUX FSITS REAL(0:ITSD,1) INCIDENT SW RADIATION AT SURFACE - HFSTS REAL(0:ITSD,1) SURFACE SENSIBLE HEAT FLUX QFSTS REAL(0:ITSD,1) SURFACE MOISTURE FLUX - TTPPTS REAL(0:ITSD,ILEV) LARGE-SCALE COND. TENDENCY (TEMPERATURE) TTPCTS REAL(0:ITSD,ILEV) CONVECTIVE TENDENCY (TEMPERATURE) TTPSTS REAL(0:ITSD,ILEV) SOLAR RADIATIVE HEATING RATES TTPLTS REAL(0:ITSD,ILEV) LONGWAVE RADIATIVE HEATING RATES TTPVTS REAL(0:ITSD,ILEV) VERTICAL DIFFUSION TENDENCY (TEMPERATURE) TTPTS REAL(0:ITSD,ILEV) TOTAL TEMPERATURE TENDENCY QTPPTS REAL(0:ITSD,ILEV) LARGE-SCALE COND. TENDENCY (MOISTURE) QTPCTS REAL(0:ITSD,ILEV) CONVECTIVE TENDENCY (MOISTURE) QTPVTS REAL(0:ITSD,ILEV) VERTICAL DIFFUSION TENDENCY (MOISTURE) QTPTS REAL(0:ITSD,ILEV) TOTAL MOISTURE TENDENCY -ACCUMATING ARRAYS THACC REAL(ILEV) TEMPERATURE UACC REAL(ILEV) ZONAL WIND VACC REAL(ILEV) MERIDIONAL WIND QACC REAL(ILEV) SPECIFIC HUMIDITY PCPACC REAL(1) PRECIPITATION RATE CLDACC REAL(ILEV) CLOUD COVER FTAACC REAL(ILEV) FORCED TEMPERATURE ADVECTION FUACC REAL(ILEV) FORCED ZONAL WIND ACVECTION FVACC REAL(ILEV) FORCED MERIDIONAL WIND ACVECTION FQAACC REAL(ILEV) FORCED MOIST ADVECTION FRADACC REAL(ILEV) FORCED RADIATIVE HEATING RATES THTDACC REAL(ILG,ILEV) --- TATDACC REAL(ILG,ILEV) --- PWATACC REAL PRECIPITABLE WATER CAPEACC REAL CONVECTIVE AVAILABLE PE CLDTACC REAL TOTAL CLOUD COVER HMNACC REAL(ILEV) MOIST STATIC ENERGY - HFSACC REAL SURFACE SENSIBLE HEAT FLUX QFSACC REAL SURFACE MOISTURE FLUX - TTPPACC REAL(ILEV) LARGE-SCALE COND. TENDENCY (TEMPERATURE) TTPCACC REAL(ILEV) CONVECTIVE TENDENCY (TEMPERATURE) TTPSACC REAL(ILEV) SOLAR RADIATIVE HEATING RATES TTPLACC REAL(ILEV) LONGWAVE RADIATIVE HEATING RATES TTPVACC REAL(ILEV) VERTICAL DIFFUSION TENDENCY (TEMPERATURE) TTPACC REAL(ILEV) TOTAL TEMPERATURE TENDENCY QTPPACC REAL(ILEV) LARGE-SCALE COND. TENDENCY (MOISTURE) QTPCACC REAL(ILEV) CONVECTIVE TENDENCY (MOISTURE) QTPVACC REAL(ILEV) VERTICAL DIFFUSION TENDENCY (MOISTURE) QTPACC REAL(ILEV) TOTAL MOISTURE TENDENCY - EXTRA VECTORS NEEDED FOR VRTDF10 IMPLEMENTATION. UTENDGW REAL(ILG,ILEV) GRID SLICE OF U-WIND TENDENCY (REAL) VTENDGW REAL(ILG,ILEV) GRID SLICE OF V-WIND TENDENCY (REAL) UFS REAL(ILG) --- VFS REAL(ILG) --- UFSROL REAL(ILG) --- VFSROL REAL(ILG) --- TH1 REAL(ILG,LEV) --- TH1(1,2) REAL(ILG,LEV) GRID SLICE OF TEMPERATURE AT MID-LAYER QH1 REAL(ILG,LEV) --- U1 REAL(ILG,ILEV) --- V1 REAL(ILG,ILEV) --- XROW REAL(ILG,LEV,1) PASSIVE TRACER CONCENTRATIONS GRID SLICE OF TRACERS (POSSIBLY NOT MIXING RATIO) XFS REAL(ILG,1) --- XFX REAL(ILG,1) --- XSFX REAL(ILG,1) --- XINCR REAL(ILG,1) --- SUMX REAL(ILG,1) --- XREF REAL(ILG,1) --- RKXMIN REAL(1) --- RKX REAL(ILG,ILEV,1) --- - PARAMETERS IVA 90000 SIZE OF WORK ARRAY "VA" IWRK 90000 --- IPID 90009 --- ILG 1 NUMBER OF LONGITUDES ILEV $SILEV$ LEVELS EXCLUDING MOONLAYER LEV ILEV+1 LEVELS INCLUDING MOONLAYER LEVP1 LEV+1 --- LEVS ILEV --- ILAT 1 GAUSSIAN LATITUDE INDEX IGND 3 --- ICAN 4 --- ICANP1 ICAN+1 --- LON 1 --- IL1 1 START LONGITUDE INDICES FOR LATITUDE CIRCLE IL2 1 END LONGITUDE INDICES FOR LATITUDE CIRCLE LEVOZ 37 --- NINTSW 4 --- ITSD 7200 --- NLATJ 1 --- NENDJ 1 --- N_OUTUNIT 10 --- N_OUTFIELDS 12 --- N_MODULES 8 --- NUDG_NUM 2 --- FORC_NUM 2 --- LEVS_FORC 4 --- LEVS_NUDG 42 --- LEVS_INI 32 --- IRADCHECK IRADINTRV --- MSG ILEV-LEVS --- NUPS 0 --- DELT DT LENGTH OF MODEL TIME-STEP IN SECONDS TODT DELT --- SOLARC SOLARCON --- NSECSO NINT(GMTO) --- KTSTEPS KFINAL-KSTART --- KOUNT KSTART CURRENT MODEL TIMESTEP NUMBER IDAY1 IDAYO --- - NAMELISTS CTIME NAMELIST --- KSTART NAMELIST STARTING COUNT KFINAL NAMELIST FINAL COUNT DT NAMELIST LENGTH OF TIMESTEP IDAYO NAMELIST DAYS SINCE DEC. 31, LAST YEAR GMTO NAMELIST SECONDS SINCE START OF STARTDAY WHEN MODEL BEGINS TO RUN GMTINIT NAMELIST --- IBDAY NAMELIST --- NAMELIST NAMELIST --- COPTION NAMELIST --- ICOORD NAMELIST --- LAY NAMELIST --- INCD NAMELIST --- IOCEAN NAMELIST --- ICEMOD NAMELIST --- IFIXCLD NAMELIST --- IHYD NAMELIST --- ICON NAMELIST --- IRAD NAMELIST --- ITRAC NAMELIST SWITCH TO INDICATE IF PASSIVE TRACERS (ITRAC=1) OR NOT PTOIT NAMELIST PRESSURE WHERE LID OF MODEL APPLIED ISOIL NAMELIST --- IGCMQL NAMELIST --- IPREF NAMELIST --- ISTDATM NAMELIST --- IWP NAMELIST --- IDIS NAMELIST --- IFORC NAMELIST --- ICLASS NAMELIST --- ISBND NAMELIST --- JLATPR NAMELIST GAUSSIAN LATITUDE INDEX FOR PRINTING GRIDS (IF NEEDED) ICGCM NAMELIST --- IMICRO NAMELIST --- ICOND NAMELIST --- ICDNC NAMELIST --- INUDG NAMELIST --- RNUDGDYN NAMELIST --- RNUDGQ NAMELIST --- IFBEH NAMELIST --- IFEXP NAMELIST --- IFWG2 NAMELIST --- IGEOSDEF NAMELIST --- RUNFORC NAMELIST --- TNUDG NAMELIST --- UNUDG NAMELIST --- VNUDG NAMELIST --- QNUDG NAMELIST --- QLNUDG NAMELIST --- QAPNUDG NAMELIST --- TFORC NAMELIST --- UFORC NAMELIST --- VFORC NAMELIST --- QFORC NAMELIST --- RUNRAD NAMELIST --- ITKE NAMELIST --- ICLW NAMELIST --- MISC NAMELIST --- ALSWR NAMELIST --- ALLWR NAMELIST --- RHSURF NAMELIST --- TSURF NAMELIST --- GOI NAMELIST --- UGWS NAMELIST --- VGWS NAMELIST --- US NAMELIST --- VS NAMELIST --- ZOMR NAMELIST --- ZOHR NAMELIST --- IRADINTRV NAMELIST --- RKMIN NAMELIST --- TKEMIN NAMELIST --- MONTH NAMELIST --- IGCMLON NAMELIST --- IGCMLAT NAMELIST --- BLTHI NAMELIST --- LATLONG NAMELIST --- IDLAT NAMELIST INTEGER VALUE FOR LATITUDE IDLON NAMELIST INTEGER VALUE FOR LONGITUDE LONGSL NAMELIST --- OFILE NAMELIST --- OUTFILE NAMELIST NAME OF OUTPUT FILE ISAVINTRV NAMELIST TIMESTEP INTERVAL TO SAVE AT INFILE NAMELIST --- INI_FILE NAMELIST --- TDSAVE NAMELIST --- LTPRHS NAMELIST --- LQPRHS NAMELIST --- LTPRHSC NAMELIST --- LQPRHSC NAMELIST --- LUPRHSC NAMELIST --- LVPRHSC NAMELIST ---