Changeset 3888 for LMDZ6/trunk/libf/phylmd/physiq_mod.F90
- Timestamp:
- May 5, 2021, 12:50:37 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/physiq_mod.F90
r3877 r3888 210 210 zxrunofflic, & 211 211 zxtsol, snow_lsc, zxfqfonte, zxqsurf, & 212 delta_qsurf, & 212 213 rain_lsc, rain_num, & 213 214 ! … … 2485 2486 ! s_therm, s_trmb1, s_trmb2, s_trmb3, 2486 2487 ! zu10m, zv10m, fder, 2487 ! zxqsurf, rh2m, zxfluxu, zxfluxv, 2488 ! zxqsurf, delta_qsurf, 2489 ! rh2m, zxfluxu, zxfluxv, 2488 2490 ! frugs, agesno, fsollw, fsolsw, 2489 2491 ! d_ts, fevap, fluxlat, t2m, … … 2546 2548 !albedo SB <<< 2547 2549 cdragh, cdragm, u1, v1, & 2550 beta_aridity, & 2548 2551 !albedo SB >>> 2549 2552 ! albsol1, albsol2, sens, evap, & … … 2572 2575 s_therm, s_trmb1, s_trmb2, s_trmb3, & 2573 2576 zustar, zu10m, zv10m, fder, & 2574 zxqsurf, rh2m, zxfluxu, zxfluxv, &2577 zxqsurf, delta_qsurf, rh2m, zxfluxu, zxfluxv, & 2575 2578 z0m, z0h, agesno, fsollw, fsolsw, & 2576 2579 d_ts, fevap, fluxlat, t2m, & … … 4637 4640 4638 4641 CALL tend_to_tke(pdtphys,paprs,exner,t_seri,u_seri,v_seri,dtadd,duadd,dvadd,pctsrf,pbl_tke) 4639 4642 ! 4643 ! Prevent pbl_tke_w from becoming negative 4644 wake_delta_pbl_tke(:,:,:) = max(wake_delta_pbl_tke(:,:,:), -pbl_tke(:,:,:)) 4645 ! 4640 4646 4641 4647 ENDIF
Note: See TracChangeset
for help on using the changeset viewer.