| File |
Line number |
Procedure |
Code |
|
./pkg/aim/aim_do_atmos_physics.F |
181 |
AIM_DO_PHYSICS |
IF (NLEVxyV(I2,myThid).GT.0) |
|
./pkg/aim/aim_do_atmos_physics.F |
183 |
AIM_DO_PHYSICS |
& +VG1(I2,NLEVxyV(I2,myThid),myThid) |
|
./pkg/aim/aim_do_atmos_physics.F |
184 |
AIM_DO_PHYSICS |
& *VG1(I2,NLEVxyV(I2,myThid),myThid) |
|
./pkg/aim/aim_dyn2aim.F |
64 |
AIM_DYN2AIM |
NLEVxyV(I2,myThid)=0 |
|
./pkg/aim/aim_dyn2aim.F |
70 |
AIM_DYN2AIM |
NLEVxyV(I2,myThid)= NLEVxyV(I2,myThid) |
|
./pkg/aim/phy_suflux.F |
116 |
SUFLUX |
IF ( NLEVxyV(J,myThid) .GT. 0 ) THEN |
|
./pkg/aim/phy_suflux.F |
117 |
SUFLUX |
V0(J) = FWIND0*VA(J,NLEVxyV(J,myThid)) |
|
./pkg/aim/phy_suflux.F |
234 |
SUFLUX |
IF ( NLEVxyV(J,myThid) .GT. 0 ) |
|
./pkg/aim/phy_suflux.F |
235 |
SUFLUX |
& VSTR(J,3) = -DRAG(J)*VA(J,NLEVxyV(J,myThid)) |
|
./pkg/aim/AIM_GRID.h |
14 |
NO PROCEDURE |
COMMON /NB_LEVELS/ NLEVxy, NLEVxyU, NLEVxyV |
|
./pkg/aim/AIM_GRID.h |
17 |
NO PROCEDURE |
INTEGER NLEVxyV (NGP, MAX_NO_THREADS) |