| File |
Line number |
Procedure |
Code |
|
./pkg/aim/phy_suflux.F |
178 |
SUFLUX |
DENVV(J,3)=(PRD*PSA(J)/T0(J,1))*SPEED0(J) |
|
./pkg/aim/phy_suflux.F |
195 |
SUFLUX |
DENVV(J,1)=DENVV(J,3)*FSLAND |
|
./pkg/aim/phy_suflux.F |
196 |
SUFLUX |
DENVV(J,2)=DENVV(J,3)*FSSEA |
|
./pkg/aim/phy_suflux.F |
220 |
SUFLUX |
DRAG(J) = ( CDS+FMASK(J)*(CDL-CDS) ) * DENVV(J,3) |
|
./pkg/aim/phy_suflux.F |
245 |
SUFLUX |
SHF(J,1) = CHLCP*DENVV(J,1)*(TLAND(J)-T0(J,1)) |
|
./pkg/aim/phy_suflux.F |
246 |
SUFLUX |
SHF(J,2) = CHSCP*DENVV(J,2)*(TSEA(J) -T0(J,1)) |
|
./pkg/aim/phy_suflux.F |
313 |
SUFLUX |
EVAP(J,1)=CHL*DENVV(J,1)*MIN(1. _d 0,SWAV(J))*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim/phy_suflux.F |
318 |
SUFLUX |
EVAP(J,2) = CHS*DENVV(J,2)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim/phy_suflux.F |
73 |
SUFLUX |
_RL U0(NGP),V0(NGP),DENVV(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 |
173 |
SUFLUX_PREP |
DENVV(J)=(PRD*PSA(J)/T0(J))*SPEED0(J) |
|
./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_land.F |
120 |
SUFLUX_LAND |
CDENVV(J)=CHL*DENVV(J)*FSLAND |
|
./pkg/aim_v23/phy_suflux_land.F |
129 |
SUFLUX_LAND |
Shf0(J) = CHL*DENVV(J)*Fstb0 |
|
./pkg/aim_v23/phy_suflux_land.F |
12 |
SUFLUX_LAND |
I T1, T0, Q0, DENVV, |
|
./pkg/aim_v23/phy_suflux_land.F |
132 |
SUFLUX_LAND |
dShf(J) = CHL*DENVV(J)*dFstb |
|
./pkg/aim_v23/phy_suflux_land.F |
81 |
SUFLUX_LAND |
_RL T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
12 |
SUFLUX_OCEAN |
I T1, T0, Q0, DENVV, |
|
./pkg/aim_v23/phy_suflux_ocean.F |
61 |
SUFLUX_OCEAN |
_RL T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
91 |
SUFLUX_OCEAN |
CDENVV(J)=CHS*DENVV(J)*FSSEA |
|
./pkg/aim_v23/phy_suflux_post.F |
12 |
SUFLUX_POST |
I T0, Q0, DENVV, |
|
./pkg/aim_v23/phy_suflux_post.F |
80 |
SUFLUX_POST |
_RL T0(NGP), Q0(NGP), DENVV(NGP) |
|
./pkg/aim_v23/phy_suflux_sice.F |
125 |
SUFLUX_SICE |
CDENVV(J)=CHS*DENVV(J)*FSSICE |
|
./pkg/aim_v23/phy_suflux_sice.F |
12 |
SUFLUX_SICE |
I T1, T0, Q0, DENVV, |
|
./pkg/aim_v23/phy_suflux_sice.F |
134 |
SUFLUX_SICE |
Shf0(J) = CHS*DENVV(J)*Fstb0 |
|
./pkg/aim_v23/phy_suflux_sice.F |
137 |
SUFLUX_SICE |
dShf(J) = CHS*DENVV(J)*dFstb |
|
./pkg/aim_v23/phy_suflux_sice.F |
80 |
SUFLUX_SICE |
_RL T1(NGP), T0(NGP), Q0(NGP), DENVV(NGP) |
|
./pkg/aim_v23/phy_driver.F |
242 |
PHY_DRIVER |
O SPEED0(1,myThid),DRAG(1,0,myThid),DENVV, |
|
./pkg/aim_v23/phy_driver.F |
250 |
PHY_DRIVER |
I T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_driver.F |
269 |
PHY_DRIVER |
O T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_driver.F |
278 |
PHY_DRIVER |
I T1s, T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_driver.F |
304 |
PHY_DRIVER |
I T0(1,myThid), Q0(1,myThid), DENVV, |
|
./pkg/aim_v23/phy_driver.F |
87 |
PHY_DRIVER |
_RL dTskin(NGP), T1s(NGP), DENVV(NGP) |