| File |
Line number |
Procedure |
Code |
|
./pkg/aim/com_physvar.h |
100 |
NO PROCEDURE |
_RL QSAT0 (NGP,2,MAX_NO_THREADS) |
|
./pkg/aim/com_physvar.h |
85 |
NO PROCEDURE |
& USTR, VSTR, SHF, EVAP, T0, Q0, QSAT0, |
|
./pkg/aim/phy_suflux.F |
161 |
SUFLUX |
CALL SHTORH (-1,NGP,T0,PSA,1. _d 0,Q0,WORK,QSAT0,myThid) |
|
./pkg/aim/phy_suflux.F |
308 |
SUFLUX |
CALL SHTORH (0,NGP,TLAND,PSA,1. _d 0,QDUMMY,RDUMMY,QSAT0(1,1),myThid) |
|
./pkg/aim/phy_suflux.F |
309 |
SUFLUX |
CALL SHTORH (0,NGP,TSEA ,PSA,1. _d 0,QDUMMY,RDUMMY,QSAT0(1,2),myThid) |
|
./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 |
333 |
SUFLUX |
QSAT0(J,1) = QSAT0(J,2)+FMASK(J)*(QSAT0(J,1)-QSAT0(J,2)) |
|
./pkg/aim/phy_suflux.F |
68 |
SUFLUX |
_RL T0(NGP,2),Q0(NGP),QSAT0(NGP,2), SPEED0(NGP) |
|
./pkg/aim/phy_suflux.F |
8 |
SUFLUX |
* DRAG,USTR,VSTR,SHF,EVAP,T0,Q0,QSAT0,SPEED0, |
|
./pkg/aim/phy_driver.F |
203 |
PDRIVER |
& QSAT0(1,1,myThid),SPEED0(1,myThid), |
|
./pkg/aim_v23/phy_suflux_prep.F |
155 |
SUFLUX_PREP |
CALL SHTORH (-1,NGP,T0, PSA, 1. _d 0, Q0, tmpRH, QSAT0, myThid) |
|
./pkg/aim_v23/phy_suflux_prep.F |
97 |
SUFLUX_PREP |
_RL QSAT0(NGP,2) |
|
./pkg/aim_v23/phy_suflux_land.F |
139 |
SUFLUX_LAND |
& QSAT0(1,1), myThid) |
|
./pkg/aim_v23/phy_suflux_land.F |
141 |
SUFLUX_LAND |
& QSAT0(1,2), myThid) |
|
./pkg/aim_v23/phy_suflux_land.F |
148 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
149 |
SUFLUX_LAND |
Evp0(J) = Shf0(J)*SWAV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
151 |
SUFLUX_LAND |
& + dShf(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
155 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
156 |
SUFLUX_LAND |
Evp0(J) = CDENVV(J)*SWAV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
165 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
166 |
SUFLUX_LAND |
Evp0(J) = Shf0(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
168 |
SUFLUX_LAND |
& + dShf(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
175 |
SUFLUX_LAND |
EVAP(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
176 |
SUFLUX_LAND |
Evp0(J) = CDENVV(J)*SWAV(J)*MAX(0. _d 0,QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_land.F |
97 |
SUFLUX_LAND |
_RL QSAT0(NGP,2) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
101 |
SUFLUX_OCEAN |
& QSAT0, myThid) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
104 |
SUFLUX_OCEAN |
EVAP(J) = CDENVV(J)*(QSAT0(J)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_ocean.F |
73 |
SUFLUX_OCEAN |
_RL QSAT0(NGP) |
|
./pkg/aim_v23/phy_suflux_sice.F |
148 |
SUFLUX_SICE |
& QSAT0(1,1), myThid) |
|
./pkg/aim_v23/phy_suflux_sice.F |
150 |
SUFLUX_SICE |
& QSAT0(1,2), myThid) |
|
./pkg/aim_v23/phy_suflux_sice.F |
155 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
156 |
SUFLUX_SICE |
Evp0(J) = Shf0(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
158 |
SUFLUX_SICE |
& + dShf(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
162 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
163 |
SUFLUX_SICE |
Evp0(J) = CDENVV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
97 |
SUFLUX_SICE |
_RL QSAT0(NGP,2) |