| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_land2aim.F |
101 |
AIM_LAND2AIM |
DO k=1,land_nLev |
|
./pkg/aim_v23/aim_land2aim.F |
145 |
AIM_LAND2AIM |
kFillW = land_nLev |
|
./pkg/aim_v23/aim_land2aim.F |
161 |
AIM_LAND2AIM |
DO k=1,land_nLev |
|
./pkg/diagnostics/diagnostics_set_levels.F |
52 |
DIAGNOSTICS_SET_LEVELS |
INTEGER land_nLev |
|
./pkg/diagnostics/diagnostics_set_levels.F |
53 |
DIAGNOSTICS_SET_LEVELS |
PARAMETER ( land_nLev = 0 ) |
|
./pkg/diagnostics/diagnostics_set_levels.F |
73 |
DIAGNOSTICS_SET_LEVELS |
nGroundLev = land_nLev |
|
./pkg/diagnostics/diagstats_local.F |
413 |
DIAGSTATS_G_CALC |
kl = MIN(k,land_nLev) |
|
./pkg/land/LAND_PARAMS.h |
88 |
NO PROCEDURE |
_RL land_dzF(land_nLev), land_rec_dzC(land_nLev) |
|
./pkg/land/land_do_diags.F |
104 |
LAND_DO_DIAGS |
CALL TIMEAVE_CUMULATE(land_grTtave,land_groundT,land_nLev, |
|
./pkg/land/land_do_diags.F |
106 |
LAND_DO_DIAGS |
CALL TIMEAVE_CUMULATE(land_entave, land_enthalp,land_nLev, |
|
./pkg/land/land_do_diags.F |
108 |
LAND_DO_DIAGS |
CALL TIMEAVE_CUMULATE(land_grWtave,land_groundW,land_nLev, |
|
./pkg/land/land_do_diags.F |
65 |
LAND_DO_DIAGS |
DO k=1,land_nLev |
|
./pkg/land/land_diagnostics_fill.F |
53 |
LAND_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(land_groundT,'GrdTemp ',0,land_nLev, |
|
./pkg/land/land_diagnostics_fill.F |
55 |
LAND_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(land_enthalp,'GrdEnth ',0,land_nLev, |
|
./pkg/land/land_diagnostics_fill.F |
57 |
LAND_DIAGNOSTICS_FILL |
CALL DIAGNOSTICS_FILL(land_groundW,'GrdWater',0,land_nLev, |
|
./pkg/land/land_impl_temp.F |
141 |
LAND_IMPL_TEMP |
DO k=1,land_nLev |
|
./pkg/land/land_impl_temp.F |
345 |
LAND_IMPL_TEMP |
DO k=1,land_nLev |
|
./pkg/land/land_impl_temp.F |
81 |
LAND_IMPL_TEMP |
_RL tSurf, tg(land_nLev), eg(land_nLev) |
|
./pkg/land/land_impl_temp.F |
82 |
LAND_IMPL_TEMP |
_RL cg(land_nLev), mW(land_nLev) |
|
./pkg/land/LAND_SIZE.h |
17 |
NO PROCEDURE |
INTEGER land_nLev |
|
./pkg/land/LAND_SIZE.h |
18 |
NO PROCEDURE |
PARAMETER ( land_nLev=2 ) |
|
./pkg/land/LAND_TAVE.h |
34 |
NO PROCEDURE |
_RL land_grTtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
|
./pkg/land/LAND_TAVE.h |
35 |
NO PROCEDURE |
_RL land_entave (1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
|
./pkg/land/LAND_TAVE.h |
36 |
NO PROCEDURE |
_RL land_grWtave(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
|
./pkg/land/land_write_diags.F |
110 |
LAND_WRITE_DIAGS |
& 'RL',land_nLev,land_grTtave, 1, myIter,myThid) |
|
./pkg/land/land_write_diags.F |
112 |
LAND_WRITE_DIAGS |
& 'RL',land_nLev,land_entave, 2, myIter,myThid) |
|
./pkg/land/land_write_diags.F |
114 |
LAND_WRITE_DIAGS |
& 'RL',land_nLev,land_grWtave, 3, myIter,myThid) |
|
./pkg/land/land_write_diags.F |
115 |
LAND_WRITE_DIAGS |
nrec = 3*land_nLev |
|
./pkg/land/land_write_diags.F |
141 |
LAND_WRITE_DIAGS |
CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_write_diags.F |
142 |
LAND_WRITE_DIAGS |
CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid) |
|
./pkg/land/land_write_diags.F |
143 |
LAND_WRITE_DIAGS |
CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_write_diags.F |
66 |
LAND_WRITE_DIAGS |
CALL TIMEAVE_RESET(land_grTtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_write_diags.F |
67 |
LAND_WRITE_DIAGS |
CALL TIMEAVE_RESET(land_entave, land_nLev, bi, bj, myThid) |
|
./pkg/land/land_write_diags.F |
68 |
LAND_WRITE_DIAGS |
CALL TIMEAVE_RESET(land_grWtave,land_nLev, bi, bj, myThid) |
|
./pkg/land/land_write_diags.F |
88 |
LAND_WRITE_DIAGS |
CALL TIMEAVE_NORMALIZ(land_grTtave,land_timeAve,land_nLev, |
|
./pkg/land/land_write_diags.F |
90 |
LAND_WRITE_DIAGS |
CALL TIMEAVE_NORMALIZ(land_entave, land_timeAve,land_nLev, |
|
./pkg/land/land_write_diags.F |
92 |
LAND_WRITE_DIAGS |
CALL TIMEAVE_NORMALIZ(land_grWtave,land_timeAve,land_nLev, |
|
./pkg/land/land_write_pickup.F |
63 |
LAND_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev, |
|
./pkg/land/land_write_pickup.F |
65 |
LAND_WRITE_PICKUP |
CALL MDSWRITEFIELD(fn,prec,lgf,'RL',land_nLev, |
|
./pkg/land/land_write_pickup.F |
67 |
LAND_WRITE_PICKUP |
k=2*land_nLev |
|
./pkg/land/land_readparms.F |
138 |
LAND_READPARMS |
DO k=1,land_nLev |
|
./pkg/land/land_readparms.F |
172 |
LAND_READPARMS |
DO k=1,land_nLev |
|
./pkg/land/land_readparms.F |
185 |
LAND_READPARMS |
IF ( land_nLev.NE.2 .AND. land_impl_grT ) THEN |
|
./pkg/land/land_readparms.F |
187 |
LAND_READPARMS |
& ' land_impl_grT=.T. but land_nLev=',land_nLev |
|
./pkg/land/land_readparms.F |
289 |
LAND_READPARMS |
CALL WRITE_1D_R8( land_dzF,land_nLev, INDEX_K,'land_dzF = ', |
|
./pkg/land/land_readparms.F |
291 |
LAND_READPARMS |
CALL WRITE_1D_R8(land_rec_dzC,land_nLev,INDEX_K,'land_rec_dzC= ' |
|
./pkg/land/land_readparms.F |
339 |
LAND_READPARMS |
& land_nLev, myThid) |
|
./pkg/land/land_ini_vars.F |
102 |
LAND_INI_VARS |
& land_nLev, land_groundW, 1, myThid) |
|
./pkg/land/land_ini_vars.F |
131 |
LAND_INI_VARS |
DO k=1,land_nLev |
|
./pkg/land/land_ini_vars.F |
148 |
LAND_INI_VARS |
DO k=1,land_nLev |
|
./pkg/land/land_ini_vars.F |
62 |
LAND_INI_VARS |
DO k=1,land_nLev |
|
./pkg/land/land_ini_vars.F |
98 |
LAND_INI_VARS |
& land_nLev, land_groundT, 1, myThid) |
|
./pkg/land/land_monitor.F |
106 |
LAND_MONITOR |
DO k=1,land_nLev |
|
./pkg/land/land_monitor.F |
164 |
LAND_MONITOR |
I land_nLev, 1, 0, nLatBnd, yBand, |
|
./pkg/land/land_monitor.F |
209 |
LAND_MONITOR |
I land_nLev, 1, 1, nLatBnd, yBand, |
|
./pkg/land/land_monitor.F |
237 |
LAND_MONITOR |
I land_nLev, 1, 2, nLatBnd, yBand, |
|
./pkg/land/land_monitor.F |
265 |
LAND_MONITOR |
I land_nLev, 1, 0, nLatBnd, yBand, |
|
./pkg/land/land_monitor.F |
70 |
LAND_MONITOR |
_RS yBand(nLatBnd), locDr(land_nLev) |
|
./pkg/land/LAND_VARS.h |
30 |
NO PROCEDURE |
_RL land_groundT(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
|
./pkg/land/LAND_VARS.h |
31 |
NO PROCEDURE |
_RL land_enthalp(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
|
./pkg/land/LAND_VARS.h |
32 |
NO PROCEDURE |
_RL land_groundW(1-OLx:sNx+OLx,1-OLy:sNy+OLy,land_nLev,nSx,nSy) |
|
./pkg/land/land_read_pickup.F |
51 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundT,1,myThid) |
|
./pkg/land/land_read_pickup.F |
52 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundW,2,myThid) |
|
./pkg/land/land_read_pickup.F |
57 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_enthalp,1,myThid) |
|
./pkg/land/land_read_pickup.F |
58 |
LAND_READ_PICKUP |
CALL MDSREADFIELD(fn,prec,'RL',land_nLev,land_groundW,2,myThid) |
|
./pkg/land/land_read_pickup.F |
59 |
LAND_READ_PICKUP |
k=2*land_nLev |
|
./pkg/land/land_stepfwd.F |
149 |
LAND_STEPFWD |
DO k=1,land_nLev |
|
./pkg/land/land_stepfwd.F |
271 |
LAND_STEPFWD |
DO k=1,land_nLev |
|
./pkg/land/land_stepfwd.F |
272 |
LAND_STEPFWD |
IF (k.EQ.land_nLev) THEN |
|
./pkg/land/land_stepfwd.F |
290 |
LAND_STEPFWD |
IF ( k.EQ.land_nLev ) THEN |
|
./pkg/land/land_stepfwd.F |
316 |
LAND_STEPFWD |
IF ( k.EQ.land_nLev .OR. |
|
./pkg/land/land_stepfwd.F |
397 |
LAND_STEPFWD |
DO k=1,land_nLev |
|
./pkg/land/land_stepfwd.F |
93 |
LAND_STEPFWD |
DO k=1,land_nLev |
|
./pkg/land/land_stepfwd.F |
94 |
LAND_STEPFWD |
kp1 = MIN(k+1,land_nLev) |