| File |
Line number |
Procedure |
Code |
|
./pkg/aim_v23/phy_suflux_land.F |
116 |
SUFLUX_LAND |
RDTH = FSTAB/DTHETA |
|
./pkg/aim_v23/phy_suflux_land.F |
119 |
SUFLUX_LAND |
FSLAND=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_land.F |
128 |
SUFLUX_LAND |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_land.F |
130 |
SUFLUX_LAND |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
|
./pkg/aim_v23/phy_suflux_ocean.F |
87 |
SUFLUX_OCEAN |
RDTH = FSTAB/DTHETA |
|
./pkg/aim_v23/phy_suflux_ocean.F |
90 |
SUFLUX_OCEAN |
FSSEA =1.+MIN(DTHETA,MAX(-DTHETA, Tsurf(J)-T1(J)))*RDTH |
|
./pkg/aim_v23/aim_readparms.F |
136 |
AIM_READPARMS |
& DTHETA, dTstab, FSTAB, HDRAG, FHDRAG |
|
./pkg/aim_v23/aim_readparms.F |
366 |
AIM_READPARMS |
CALL WRITE_0D_R8( DTHETA,INDEX_NONE,'AIM_SFL: DTHETA =', |
|
./pkg/aim_v23/phy_suflux_sice.F |
121 |
SUFLUX_SICE |
RDTH = FSTAB/DTHETA |
|
./pkg/aim_v23/phy_suflux_sice.F |
124 |
SUFLUX_SICE |
FSSICE=1.+MIN(DTHETA,MAX(-DTHETA,TSKIN(J)-T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_sice.F |
133 |
SUFLUX_SICE |
Fstb0 = 1.+MIN(DTHETA,MAX(-DTHETA,TSFC(J) -T1(J)))*RDTH |
|
./pkg/aim_v23/phy_suflux_sice.F |
135 |
SUFLUX_SICE |
dTstb = ( DTHETA+dTstab-ABS(TSKIN(J)-T1(J)) )/dTstab |
|
./pkg/aim_v23/phy_const.h |
76 |
NO PROCEDURE |
DTHETA = 3. _d 0 |
|
./pkg/aim_v23/com_sflcon.h |
27 |
NO PROCEDURE |
& DTHETA, dTstab, FSTAB, HDRAG, FHDRAG |
|
./pkg/aim_v23/com_sflcon.h |
30 |
NO PROCEDURE |
_RL DTHETA, dTstab, FSTAB, HDRAG, FHDRAG |