Ignore:
Timestamp:
Mar 24, 2026, 10:56:41 AM (11 days ago)
Author:
idelkadi
Message:

Cleaning up the LMDZ physical model (physiq_mod.F90): reducing the number of arguments passed to Cosp simulators

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r6124 r6125  
    16411641                  mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0)
    16421642
    1643              CALL phys_cosp(itap,phys_tstep,freq_cosp, &
    1644                   ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
    1645                   ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
     1643             CALL phys_cosp(itap,phys_tstep,missing_val, &
    16461644                  klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
    16471645                  JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, &
    … …  
    16611659                  mr_ozone_cosp0,cldtau_cosp0,cldemi_cosp0,JrNt_cosp0)
    16621660
    1663              CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, &
    1664                   ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
    1665                   ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
     1661             CALL lmdz_cosp_interface(itap,phys_tstep,missing_val, &
    16661662                  klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
    16671663                  JrNt_cosp0,ref_liq_cosp0,ref_ice_cosp0, &
    … …  
    47864782             !       print*,'Dans physiq.F avant appel cosp ref_liq,ref_ice=',
    47874783             !     s        ref_liq,ref_ice
    4788              CALL phys_cosp(itap,phys_tstep,freq_cosp, &
    4789                   ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
    4790                   ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
     4784             CALL phys_cosp(itap,phys_tstep,missing_val, &
    47914785                  klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
    47924786                  JrNt,ref_liq,ref_ice, &
    … …  
    48234817             print*,'Dans physiq.F avant appel '
    48244818             !     s        ref_liq,ref_ice
    4825              CALL lmdz_cosp_interface(itap,phys_tstep,freq_cosp, &
    4826                   ok_mensuelCOSP,ok_journeCOSP,ok_hfCOSP, &
    4827                   ecrit_mth,ecrit_day,ecrit_hf, ok_all_xml, missing_val, &
     4819             CALL lmdz_cosp_interface(itap,phys_tstep,missing_val, &
    48284820                  klon,klev,longitude_deg,latitude_deg,presnivs,overlap, &
    48294821                  JrNt,ref_liq,ref_ice, &
Note: See TracChangeset for help on using the changeset viewer.