Ignore:
Timestamp:
Mar 26, 2026, 2:59:25 PM (2 weeks ago)
Author:
idelkadi
Message:

Cleaning up the LMDZ physical model (physiq_mod.F90): reducing the number of arguments passed to radiative transfer routines

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r6126 r6127  
    19991999       ENDIF !using_xios
    20002000       !
    2001        CALL printflag( tabcntr0,radpas,ok_journe, &
    2002             ok_instan, ok_region )
     2001       CALL printflag( tabcntr0,radpas,ok_region )
    20032002       !
    20042003       !
    … …  
    44404439               t_seri,q_seri,wo, &
    44414440               cldfrarad, cldemirad, cldtaurad, &
    4442                ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie,  ok_volcan, flag_volc_surfstrat, &
    4443                flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
    44444441               tau_aero, piz_aero, cg_aero, &
    44454442               tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm, &
    … …  
    45204517                  t_seri,q_seri,wo, &
    45214518                  cldfrarad, cldemirad, cldtaurad, &
    4522                   ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie,  ok_volcan, flag_volc_surfstrat, &
    4523                   flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
    45244519                  tau_aero, piz_aero, cg_aero, &
    45254520                  tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm, &
    … …  
    45694564                  t_seri,q_seri,wo, &
    45704565                  cldfrarad, cldemirad, cldtaurad, &
    4571                   ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie,  ok_volcan, flag_volc_surfstrat, &
    4572                   flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
    45734566                  tau_aero, piz_aero, cg_aero, &
    45744567                  tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm, &
Note: See TracChangeset for help on using the changeset viewer.