Changeset 4013 for LMDZ6/branches/Ocean_skin/libf/phylmd/dyn1d/scm.F90
- 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/dyn1d/scm.F90
r3798 r4013 7 7 du_gwd_rando, du_gwd_front, entr_therm, f0, fm_therm, & 8 8 falb_dir, falb_dif, & 9 ftsol, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, &9 ftsol, beta_aridity, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, & 10 10 rnebcon, rugoro, sig1, w01, solaire_etat0, sollw, sollwdown, & 11 solsw, t_ancien, q_ancien, u_ancien, v_ancien, wake_cstar, &11 solsw, solswfdiff, t_ancien, q_ancien, u_ancien, v_ancien, & 12 12 wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, & 13 13 wake_deltaq, wake_deltat, wake_s, wake_dens, & 14 awake_dens, cv_gen, wake_cstar, & 14 15 zgam, zmax0, zmea, zpic, zsig, & 15 16 zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, ql_ancien, qs_ancien, & … … 429 430 qsol = qsolinp 430 431 qsurf = fq_sat(tsurf,psurf/100.) 432 beta_aridity(:,:) = beta_surf 431 433 day1= day_ini 432 434 time=daytime-day … … 644 646 snow_fall=0. 645 647 solsw=0. 648 solswfdiff=0. 646 649 sollw=0. 647 650 sollwdown=rsigma*tsurf**4 … … 659 662 sig1=0. 660 663 w01=0. 661 wake_cstar = 0. 664 ! 662 665 wake_deltaq = 0. 663 666 wake_deltat = 0. … … 668 671 wake_s = 0. 669 672 wake_dens = 0. 673 awake_dens = 0. 674 cv_gen = 0. 675 wake_cstar = 0. 670 676 ale_bl = 0. 671 677 ale_bl_trig = 0. … … 692 698 ! pctsrf(:,is_sic),ftsol(:,nsrf),tsoil(:,isoil,nsrf),qsurf(:,nsrf) 693 699 ! qsol,falb_dir(:,nsrf),falb_dif(:,nsrf),evap(:,nsrf),snow(:,nsrf) 694 ! radsol,solsw,sol lw, sollwdown,fder,rain_fall,snow_fall,frugs(:,nsrf)700 ! radsol,solsw,solswfdiff,sollw, sollwdown,fder,rain_fall,snow_fall,frugs(:,nsrf) 695 701 ! agesno(:,nsrf),zmea,zstd,zsig,zgam,zthe,zpic,zval,rugoro 696 702 ! t_ancien,q_ancien,,frugs(:,is_oce),clwcon(:,1),rnebcon(:,1),ratqs(:,1) 697 703 ! run_off_lic_0,pbl_tke(:,1:klev,nsrf), zmax0,f0,sig1,w01 698 ! wake_deltat,wake_deltaq,wake_s,wake_dens, wake_cstar,704 ! wake_deltat,wake_deltaq,wake_s,wake_dens,awake_dens,cv_gen,wake_cstar, 699 705 ! wake_fip,wake_delta_pbl_tke(:,1:klev,nsrf) 700 706 ! … … 783 789 !===================================================================== 784 790 #ifdef OUTPUT_PHYS_SCM 785 CALL iophys_ini 791 CALL iophys_ini(timestep) 786 792 #endif 787 793
Note: See TracChangeset
for help on using the changeset viewer.