Changeset 3888 for LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90
- Timestamp:
- May 5, 2021, 12:50:37 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90
r3781 r3888 11 11 du_gwd_rando, du_gwd_front, entr_therm, f0, fm_therm, & 12 12 falb_dir, falb_dif, & 13 ftsol, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, &13 ftsol, beta_aridity, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, & 14 14 rnebcon, rugoro, sig1, w01, solaire_etat0, sollw, sollwdown, & 15 15 solsw, t_ancien, q_ancien, u_ancien, v_ancien, wake_cstar, & … … 656 656 qsol = qsolinp 657 657 qsurf = fq_sat(tsurf,psurf/100.) 658 beta_aridity(:,:) = beta_surf 658 659 day1= day_ini 659 660 time=daytime-day … … 795 796 796 797 fder=0. 798 snsrf(1,:)=snowmass ! masse de neige des sous surface 797 799 print *, 'snsrf', snsrf 798 snsrf(1,:)=snowmass ! masse de neige des sous surface799 800 qsurfsrf(1,:)=qsurf ! humidite de l'air des sous surface 800 801 fevap=0.
Note: See TracChangeset
for help on using the changeset viewer.