| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/aim_aim2dyn.F |
89 |
AIM_AIM2DYN |
aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
178 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_PHYS( 'aimPhyDiag.', suff, 4, DRAG, |
|
./pkg/aim_v23/aim_diagnostics.F |
250 |
AIM_DIAGNOSTICS |
& 'aim_DRAG0',DRAG(1,0,myThid),myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
345 |
AIM_DIAGNOSTICS |
& + DRAG(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
428 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( DRAG(1,0,myThid), |
|
./pkg/aim_v23/com_physvar.h |
113 |
NO PROCEDURE |
_RL DRAG (NGP,0:3,MAX_NO_THREADS) |
|
./pkg/aim_v23/com_physvar.h |
99 |
NO PROCEDURE |
& SHF, EVAP, SPEED0, DRAG |
|
./pkg/aim_v23/phy_driver.F |
296 |
PHY_DRIVER |
O SPEED0(1,myThid),DRAG(1,0,myThid),DENVV, |
|
./pkg/aim_v23/phy_driver.F |
359 |
PHY_DRIVER |
U DRAG(1,0,myThid), SHF(1,0,myThid), |
|
./pkg/aim_v23/phy_suflux_post.F |
116 |
SUFLUX_POST |
DRAG(J,0) = (FMASK(J,1)*DRAG(J,1)+FMASK(J,2)*DRAG(J,2) |
|
./pkg/aim_v23/phy_suflux_post.F |
117 |
SUFLUX_POST |
& +FMASK(J,3)*DRAG(J,3)) |
|
./pkg/aim_v23/phy_suflux_post.F |
13 |
SUFLUX_POST |
U DRAG, SHF, EVAP, SLRup, |
|
./pkg/aim_v23/phy_suflux_post.F |
82 |
SUFLUX_POST |
_RL DRAG(NGP,0:3), SHF(NGP,0:3), EVAP(NGP,0:3), SLRup(NGP,3) |
|
./pkg/aim_v23/phy_suflux_prep.F |
12 |
SUFLUX_PREP |
O SPEED0,DRAG,DENVV,dTskin,T1,T0,Q0, |
|
./pkg/aim_v23/phy_suflux_prep.F |
194 |
SUFLUX_PREP |
DRAG(J,1) = CDL*DENVV(J)*FOROG(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
195 |
SUFLUX_PREP |
DRAG(J,2) = CDS*DENVV(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
196 |
SUFLUX_PREP |
DRAG(J,3) = CDS*DENVV(J) |
|
./pkg/aim_v23/phy_suflux_prep.F |
87 |
SUFLUX_PREP |
_RL SPEED0(NGP), DRAG(NGP,0:3), T1(NGP), DENVV(NGP) |