| File |
Line number |
Procedure |
Code |
|
./pkg/aim/aim_do_atmos_physics.F |
177 |
AIM_DO_PHYSICS |
IF (NLEVxyU(I2,myThid).GT.0) |
|
./pkg/aim/aim_do_atmos_physics.F |
179 |
AIM_DO_PHYSICS |
& +UG1(I2,NLEVxyU(I2,myThid),myThid) |
|
./pkg/aim/aim_do_atmos_physics.F |
180 |
AIM_DO_PHYSICS |
& *UG1(I2,NLEVxyU(I2,myThid),myThid) |
|
./pkg/aim/aim_dyn2aim.F |
63 |
AIM_DYN2AIM |
NLEVxyU(I2,myThid)=0 |
|
./pkg/aim/aim_dyn2aim.F |
68 |
AIM_DYN2AIM |
NLEVxyU(I2,myThid)= NLEVxyU(I2,myThid) |
|
./pkg/aim/phy_suflux.F |
113 |
SUFLUX |
IF ( NLEVxyU(J,myThid) .GT. 0 ) THEN |
|
./pkg/aim/phy_suflux.F |
114 |
SUFLUX |
U0(J) = FWIND0*UA(J,NLEVxyU(J,myThid)) |
|
./pkg/aim/phy_suflux.F |
232 |
SUFLUX |
IF ( NLEVxyU(J,myThid) .GT. 0 ) |
|
./pkg/aim/phy_suflux.F |
233 |
SUFLUX |
& USTR(J,3) = -DRAG(J)*UA(J,NLEVxyU(J,myThid)) |
|
./pkg/aim/AIM_GRID.h |
14 |
NO PROCEDURE |
COMMON /NB_LEVELS/ NLEVxy, NLEVxyU, NLEVxyV |
|
./pkg/aim/AIM_GRID.h |
16 |
NO PROCEDURE |
INTEGER NLEVxyU (NGP, MAX_NO_THREADS) |