- Timestamp:
- Nov 19, 2021, 4:58:59 PM (3 years ago)
- Location:
- LMDZ6/branches/Ocean_skin
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin
- Property svn:mergeinfo changed
-
LMDZ6/branches/Ocean_skin/libf/phylmd/calcul_fluxs_mod.F90
r3687 r4013 261 261 ! 262 262 ! calcul de l'enthalpie des precipitations liquides et solides 263 !264 ! if (PRESENT(enth_prec_liq)) &265 ! enth_prec_liq(i) = rcw * (t1lay(i) - tsurf(i)) * &266 ! precip_rain(i)267 ! if (PRESENT(enth_prec_sol)) &268 ! enth_prec_sol(i) = rcs * (t1lay(i) - tsurf(i)) * &269 ! precip_snow(i)270 ! On calcule par rapport a T=0271 263 if (PRESENT(sens_prec_liq)) sens_prec_liq(i) & 272 264 = - sens_heat_rain(precip_rain(i) + precip_snow(i), t1lay(i), & 273 265 q1lay(i), rhoa(i), rlvtt, tsurf_new(i), ps(i)) 274 266 if (PRESENT(sens_prec_sol)) sens_prec_sol(i) = 0. 267 ! On calcule par rapport a T=0 268 !! sens_prec_liq(i) = rcw * (t1lay(i) - RTT) * precip_rain(i) 269 !! sens_prec_sol(i) = rcs * (t1lay(i) - RTT) * precip_snow(i) 270 275 271 if (PRESENT(lat_prec_liq)) & 276 272 lat_prec_liq(i) = precip_rain(i) * (RLVTT - RLVTT)
Note: See TracChangeset
for help on using the changeset viewer.