| File |
Line number |
Procedure |
Code |
|
./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_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_sice.F |
149 |
SUFLUX_SICE |
& QSAT0(1,1), myThid) |
|
./pkg/aim_v23/phy_suflux_sice.F |
151 |
SUFLUX_SICE |
& QSAT0(1,2), myThid) |
|
./pkg/aim_v23/phy_suflux_sice.F |
156 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
157 |
SUFLUX_SICE |
Evp0(J) = Shf0(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
159 |
SUFLUX_SICE |
& + dShf(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
163 |
SUFLUX_SICE |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
164 |
SUFLUX_SICE |
Evp0(J) = CDENVV(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/aim_v23/phy_suflux_sice.F |
98 |
SUFLUX_SICE |
_RL QSAT0(NGP,2) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
120 |
BULKF_FORMULA_AIM |
_RL QSAT0(NGP,2) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
183 |
BULKF_FORMULA_AIM |
& QDUMMY, dEvp, QSAT0(1,1), myThid ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
185 |
BULKF_FORMULA_AIM |
& QDUMMY, RDUMMY,QSAT0(1,2), myThid ) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
190 |
BULKF_FORMULA_AIM |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
191 |
BULKF_FORMULA_AIM |
Evp0(J) = Shf0(J)*(QSAT0(J,2)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
193 |
BULKF_FORMULA_AIM |
& + dShf(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
197 |
BULKF_FORMULA_AIM |
EVAP(J) = CDENVV(J)*(QSAT0(J,1)-Q0(J)) |
|
./pkg/bulk_force/bulkf_formula_aim.F |
198 |
BULKF_FORMULA_AIM |
Evp0(J) = CDENVV(J)*(QSAT0(J,2)-Q0(J)) |