Changeset 3575 for LMDZ6/trunk/libf


Ignore:
Timestamp:
Oct 7, 2019, 11:48:33 AM (5 years ago)
Author:
fhourdin
Message:

Correction suite a la detections de problemes en 1D avec le mode
debug sur jean-zay.

Location:
LMDZ6/trunk/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/dyn1d/compar1d.h

    r3569 r3575  
    5252     & restart,ok_old_disvert,                                          &
    5353     & tadv, tadvv, tadvh, qadv, qadvv, qadvh, thadv, thadvv, thadvh,   &
    54      & trad, forc_omega, forc_w, forc_geo, forc_ustar,                  &
     54     & trad, forc_omega, forc_u, forc_v, forc_w, forc_geo, forc_ustar,                  &
    5555     & nudging_u, nudging_v, nudging_t, nudging_q, nudging_w
    5656

  • LMDZ6/trunk/libf/phylmd/dyn1d/old_lmdz1d.F90

    r3541 r3575  
    1818       zgam, zmax0, zmea, zpic, zsig, &
    1919       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, ql_ancien, qs_ancien, &
    20        prlw_ancien, prsw_ancien, prw_ancien
     20       prlw_ancien, prsw_ancien, prw_ancien, &
     21       u10m,v10m,ale_wake,ale_bl_stat
     22
    2123 
    2224   USE dimphy
    … …  
    910912        u_ancien(1,:)=u(:)
    911913        v_ancien(1,:)=v(:)
     914
     915u10m=0.
     916v10m=0.
     917ale_wake=0.
     918ale_bl_stat=0.
    912919 
    913920!------------------------------------------------------------------------

  • LMDZ6/trunk/libf/phylmd/phys_output_write_mod.F90

    r3550 r3575  
    976976          IF (iflag_pbl > 1) THEN
    977977             CALL histwrite_phy(o_tke_srf(nsrf),  pbl_tke(:,1:klev,nsrf))
    978              CALL histwrite_phy(o_l_mix(nsrf),  l_mix(:,1:klev,nsrf))
     978             !CALL histwrite_phy(o_l_mix(nsrf),  l_mix(:,1:klev,nsrf))
    979979             CALL histwrite_phy(o_l_mixmin(nsrf),  l_mixmin(:,1:klev,nsrf))
    980980             CALL histwrite_phy(o_tke_max_srf(nsrf),  pbl_tke(:,1:klev,nsrf))

  • LMDZ6/trunk/libf/phylmd/physiq_mod.F90

    r3567 r3575  
    25462546          zu10m_cor(:)=zu10m(:)
    25472547          zv10m_cor(:)=zv10m(:)
     2548          zqsat2m_cor=999.999
    25482549        ENDIF
    25492550
Note: See TracChangeset for help on using the changeset viewer.