| File |
Line number |
Procedure |
Code |
|
./pkg/aim/com_physvar.h |
104 |
NO PROCEDURE |
_RL DRAG (NGP,MAX_NO_THREADS) |
|
./pkg/aim/com_physvar.h |
86 |
NO PROCEDURE |
& SLR_DOWN, ST4S, SPEED0, DRAG |
|
./pkg/aim/phy_suflux.F |
220 |
SUFLUX |
DRAG(J) = ( CDS+FMASK(J)*(CDL-CDS) ) * DENVV(J,3) |
|
./pkg/aim/phy_suflux.F |
222 |
SUFLUX |
DRAG(J) = 0. |
|
./pkg/aim/phy_suflux.F |
233 |
SUFLUX |
& USTR(J,3) = -DRAG(J)*UA(J,NLEVxyU(J,myThid)) |
|
./pkg/aim/phy_suflux.F |
235 |
SUFLUX |
& VSTR(J,3) = -DRAG(J)*VA(J,NLEVxyV(J,myThid)) |
|
./pkg/aim/phy_suflux.F |
66 |
SUFLUX |
_RL Vsurfsq(NGP), DRAG(NGP) |
|
./pkg/aim/phy_suflux.F |
8 |
SUFLUX |
* DRAG,USTR,VSTR,SHF,EVAP,T0,Q0,QSAT0,SPEED0, |
|
./pkg/aim/aim_aim2dyn.F |
65 |
AIM_AIM2DYN |
aim_drag(i,j,bi,bj) = DRAG(I2,myThid) |
|
./pkg/aim/phy_driver.F |
200 |
PDRIVER |
& DRAG(1,myThid), |
|
./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) |
|
./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/com_physvar.h |
109 |
NO PROCEDURE |
_RL DRAG (NGP,0:3,MAX_NO_THREADS) |
|
./pkg/aim_v23/com_physvar.h |
95 |
NO PROCEDURE |
& SHF, EVAP, SPEED0, DRAG |
|
./pkg/aim_v23/aim_aim2dyn.F |
65 |
AIM_AIM2DYN |
aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid) |
|
./pkg/aim_v23/aim_diagnostics.F |
104 |
AIM_DIAGNOSTICS |
CALL AIM_WRITE_LOCAL('aimPhyDiag.',suff,1,DRAG(1,0,myThid), |
|
./pkg/aim_v23/aim_diagnostics.F |
195 |
AIM_DIAGNOSTICS |
& + DRAG(I2,0,myThid)*DDTT |
|
./pkg/aim_v23/aim_diagnostics.F |
283 |
AIM_DIAGNOSTICS |
CALL DIAGNOSTICS_FILL( DRAG(1,0,myThid), |
|
./pkg/aim_v23/phy_driver.F |
242 |
PHY_DRIVER |
O SPEED0(1,myThid),DRAG(1,0,myThid),DENVV, |
|
./pkg/aim_v23/phy_driver.F |
305 |
PHY_DRIVER |
U DRAG(1,0,myThid), SHF(1,0,myThid), |