Changeset 6146 for LMDZ6


Ignore:
Timestamp:
Mar 30, 2026, 9:05:43 PM (7 days ago)
Author:
evignon
Message:

correction des oublis de tau_cld_cv et coefw_cld_cv

Location:
LMDZ6/trunk/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/trunk/libf/phylmd/cv30_routines_mod.f90

    r6058 r6146  
    194194    ! -------------------------------------------------------------------
    195195    DO i = 1, len
    196       print*,'nk(i)',i,nk(i),minorig
    197196      IF (((t(i, nk(i))<250.0) .OR. (q(i, nk(i))<=0.0)) & ! @      &       .OR.(
    198197              ! p(i,ihmin(i)).lt.400.0

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

    r6145 r6146  
    143143    USE lmdz_cv_ini, ONLY : epmax, coef_epmax_cape, cvl_comp_threshold, cvl_sig2feed
    144144    USE lmdz_cv_ini, ONLY : iflag_cvl_sigd, iflag_clw, ok_adj_ema
    145     USE lmdz_cv_ini, ONLY : iflag_cld_cv, coefw_cld_cv, tau_cld_cv
     145    USE lmdz_cv_ini, ONLY : iflag_cld_cv
    146146    USE lmdz_surf_wind_ini, ONLY : surf_wind_ini
    147147    USE lmdz_surf_wind, ONLY : surf_wind
    … …  
    31273127                  ev, ep,epmlmMm,eplaMm, &
    31283128                  wdtrainA, wdtrainS, wdtrainM,wght_cvfd,qtc_cv,sigt_cv,detrain_cv, &
    3129                   tau_cld_cv,coefw_cld_cv,epmax_diag)
     3129                  epmax_diag)
    31303130
    31313131             ! RomP <<<

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

    r6145 r6146  
    115115    USE lmdz_cv_ini, ONLY : epmax, coef_epmax_cape, cvl_comp_threshold, cvl_sig2feed
    116116    USE lmdz_cv_ini, ONLY : iflag_cvl_sigd, iflag_clw, ok_adj_ema
    117     USE lmdz_cv_ini, ONLY : iflag_cld_cv, coefw_cld_cv, tau_cld_cv
     117    USE lmdz_cv_ini, ONLY : iflag_cld_cv
    118118    USE lmdz_surf_wind_ini, ONLY : surf_wind_ini
    119119    USE lmdz_surf_wind, ONLY : surf_wind
Note: See TracChangeset for help on using the changeset viewer.