Ignore:
Timestamp:
Jul 6, 2021, 9:16:14 AM (3 years ago)
Author:
jyg
Message:

Bug fixes concerning various variables ill-initialized, ill-used, ill-printed, or ill-placed.
+ cv_gen moved from phys_local_var_mod.F90 to phys_state_var_mod.F90; ==> changes in physiq_mod.F90
and phys_output_write.F90
+ awake_dens added in phys_state_var_mod.F90
+ cv_gen and awake_dens now initialized in phyetat0.F90 and written in phyredem.F90
+ cv_gen, awake_dens, and solswfdiff now initialized in old_lmdz1d.F90 and scm.F90
+ useless variables suppressed in pbl_surface_mod.F90.

Location:
LMDZ6/trunk/libf/phylmd/dyn1d
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90

    r3890 r3956  
    1313       ftsol, beta_aridity, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, &
    1414       rnebcon, rugoro, sig1, w01, solaire_etat0, sollw, sollwdown, &
    15        solsw, t_ancien, q_ancien, u_ancien, v_ancien, wake_cstar, &
     15       solsw, solswfdiff, t_ancien, q_ancien, u_ancien, v_ancien, &
    1616       wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, &
    1717       wake_deltaq, wake_deltat, wake_s, wake_dens, &
     18       awake_dens, cv_gen, wake_cstar, &
    1819       zgam, zmax0, zmea, zpic, zsig, &
    1920       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, ql_ancien, qs_ancien, &
     
    880881        snow_fall=0.
    881882        solsw=0.
     883        solswfdiff=0.
    882884        sollw=0.
    883885        sollwdown=rsigma*tsurf**4
     
    895897        sig1=0.
    896898        w01=0.
    897         wake_cstar = 0.
     899!
    898900        wake_deltaq = 0.
    899901        wake_deltat = 0.
     
    904906        wake_s = 0.
    905907        wake_dens = 0.
     908        awake_dens = 0.
     909        cv_gen = 0.
     910        wake_cstar = 0.
    906911        ale_bl = 0.
    907912        ale_bl_trig = 0.
     
    928933! pctsrf(:,is_sic),ftsol(:,nsrf),tsoil(:,isoil,nsrf),qsurf(:,nsrf)
    929934! qsol,falb_dir(:,nsrf),falb_dif(:,nsrf),evap(:,nsrf),snow(:,nsrf)
    930 ! radsol,solsw,sollw, sollwdown,fder,rain_fall,snow_fall,frugs(:,nsrf)
     935! radsol,solsw,solswfdiff,sollw, sollwdown,fder,rain_fall,snow_fall,frugs(:,nsrf)
    931936! agesno(:,nsrf),zmea,zstd,zsig,zgam,zthe,zpic,zval,rugoro
    932937! t_ancien,q_ancien,,frugs(:,is_oce),clwcon(:,1),rnebcon(:,1),ratqs(:,1)
    933938! run_off_lic_0,pbl_tke(:,1:klev,nsrf), zmax0,f0,sig1,w01
    934 ! wake_deltat,wake_deltaq,wake_s,wake_dens,wake_cstar,
     939! wake_deltat,wake_deltaq,wake_s,wake_dens,awake_dens,cv_gen,wake_cstar,
    935940! wake_fip,wake_delta_pbl_tke(:,1:klev,nsrf)
    936941!
  • LMDZ6/trunk/libf/phylmd/dyn1d/scm.F90

    r3888 r3956  
    99       ftsol, beta_aridity, pbl_tke, pctsrf, radsol, rain_fall, snow_fall, ratqs, &
    1010       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, &
    1212       wake_delta_pbl_TKE, delta_tsurf, wake_fip, wake_pe, &
    1313       wake_deltaq, wake_deltat, wake_s, wake_dens, &
     14       awake_dens, cv_gen, wake_cstar, &
    1415       zgam, zmax0, zmea, zpic, zsig, &
    1516       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, ql_ancien, qs_ancien, &
     
    645646        snow_fall=0.
    646647        solsw=0.
     648        solswfdiff=0.
    647649        sollw=0.
    648650        sollwdown=rsigma*tsurf**4
     
    660662        sig1=0.
    661663        w01=0.
    662         wake_cstar = 0.
     664!
    663665        wake_deltaq = 0.
    664666        wake_deltat = 0.
     
    669671        wake_s = 0.
    670672        wake_dens = 0.
     673        awake_dens = 0.
     674        cv_gen = 0.
     675        wake_cstar = 0.
    671676        ale_bl = 0.
    672677        ale_bl_trig = 0.
     
    693698! pctsrf(:,is_sic),ftsol(:,nsrf),tsoil(:,isoil,nsrf),qsurf(:,nsrf)
    694699! qsol,falb_dir(:,nsrf),falb_dif(:,nsrf),evap(:,nsrf),snow(:,nsrf)
    695 ! radsol,solsw,sollw, sollwdown,fder,rain_fall,snow_fall,frugs(:,nsrf)
     700! radsol,solsw,solswfdiff,sollw, sollwdown,fder,rain_fall,snow_fall,frugs(:,nsrf)
    696701! agesno(:,nsrf),zmea,zstd,zsig,zgam,zthe,zpic,zval,rugoro
    697702! t_ancien,q_ancien,,frugs(:,is_oce),clwcon(:,1),rnebcon(:,1),ratqs(:,1)
    698703! run_off_lic_0,pbl_tke(:,1:klev,nsrf), zmax0,f0,sig1,w01
    699 ! 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,
    700705! wake_fip,wake_delta_pbl_tke(:,1:klev,nsrf)
    701706!
Note: See TracChangeset for help on using the changeset viewer.