Changeset 5877 for LMDZ6/branches


Ignore:
Timestamp:
Nov 21, 2025, 5:31:55 PM (18 hours ago)
Author:
aborella
Message:

Bugfix for compiling SCM and with ecRad with contrails

Location:
LMDZ6/branches/contrails/libf/phylmd
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/contrails/libf/phylmd/dyn1d/old_lmdz1d.f90

    r5791 r5877  
    2424       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, &
    2525       ql_ancien, qs_ancien, qbs_ancien, &
    26        cf_ancien, qvc_ancien, qvcon, qccon, cfa_ancien, pcf_ancien, qva_ancien, qia_ancien, &
     26       cf_ancien, qvc_ancien, qvcon, qccon, &
     27       cfc_ancien, qtc_ancien, qic_ancien, nic_ancien, lic_ancien, &
    2728       prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
    2829       u10m,v10m,ale_wake,ale_bl_stat
    … …  
    892893        ENDIF
    893894        IF ( ok_plane_contrail ) THEN
    894           cfa_ancien = 0.
    895           pcf_ancien = 0.
    896           qva_ancien = 0.
    897           qia_ancien = 0.
     895          cfc_ancien = 0.
     896          qtc_ancien = 0.
     897          qic_ancien = 0.
     898          nic_ancien = 0.
     899          lic_ancien = 0.
    898900        ENDIF
    899901!jyg<

  • LMDZ6/branches/contrails/libf/phylmd/dyn1d/scm.f90

    r5791 r5877  
    2424       zstd, zthe, zval, ale_bl, ale_bl_trig, alp_bl, &
    2525       ql_ancien, qs_ancien, qbs_ancien, &
    26        cf_ancien, qvc_ancien, qvcon, qccon, cfa_ancien, pcf_ancien, qva_ancien, qia_ancien, &
     26       cf_ancien, qvc_ancien, qvcon, qccon, &
     27       cfc_ancien, qtc_ancien, qic_ancien, nic_ancien, lic_ancien, &
    2728       prlw_ancien, prsw_ancien, prbsw_ancien, prw_ancien, &
    2829       u10m,v10m,ale_wake,ale_bl_stat, ratqs_inter_
    … …  
    700701        ENDIF
    701702        IF ( ok_plane_contrail ) THEN
    702           cfa_ancien = 0.
    703           pcf_ancien = 0.
    704           qva_ancien = 0.
    705           qia_ancien = 0.
     703          cfc_ancien = 0.
     704          qtc_ancien = 0.
     705          qic_ancien = 0.
     706          nic_ancien = 0.
     707          lic_ancien = 0.
    706708        ENDIF
    707709        rain_fall=0.

  • LMDZ6/branches/contrails/libf/phylmd/physiq_mod.F90

    r5846 r5877  
    49794979                     ZSWFT0_i, ZFSDN0, ZFSUP0, &
    49804980                     ZFLUX_DIR, ZFLUX_DIR_CLEAR, ZFLUX_DIR_SUN, &
    4981                      cloud_cover_sw_s2)
     4981                     cloud_cover_sw_s2, &
     4982                     !--AB contrails radiative effects
     4983                     cldfrarad_cont, fiwc_cont, ref_ice_cont, &
     4984                     topsw_nocontp, solsw_nocontp, toplw_nocontp, sollw_nocontp)
    49824985          ENDIF ! ok_3Deffect
    49834986#endif
Note: See TracChangeset for help on using the changeset viewer.