Changeset 6127 for LMDZ6/trunk/libf


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

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

Location:
LMDZ6/trunk/libf
Files:
4 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, &

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

    r6059 r6127  
    22! $Header$
    33
    4 SUBROUTINE printflag(tabcntr0, radpas, ok_journe, ok_instan, ok_region)
     4SUBROUTINE printflag(tabcntr0, radpas, ok_region)
    55
    66
    … …  
    99
    1010  USE clesphys_mod_h
     11  USE conf_phys_m, ONLY: ok_journe, ok_instan
    1112  IMPLICIT NONE
    1213
    … …  
    1415  LOGICAL cycle_diurn0, soil_model0, liqice_in_radocond0
    1516  LOGICAL ok_limitvr0
    16   LOGICAL ok_journe, ok_instan, ok_region
     17  LOGICAL ok_region
    1718  INTEGER radpas, radpas0
    1819

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

    r6118 r6127  
    1616       t,q,wo,&
    1717       cldfra, cldemi, cldtaupd,&
    18        ok_ade, ok_aie, ok_volcan, flag_volc_surfstrat, flag_aerosol,&
    19        flag_aerosol_strat, flag_aer_feedback, &
    2018       tau_aero, piz_aero, cg_aero,&
    2119       tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm,& ! rajoute par OB RRTM
    … …  
    7876#endif
    7977    USE aero_mod
    80 
     78    USE conf_phys_m, ONLY: ok_ade, ok_aie, ok_volcan, flag_volc_surfstrat, &
     79                           flag_aerosol, flag_aerosol_strat, flag_aer_feedback
    8180    ! AI 02.2021
    8281    ! Besoin pour ECRAD de pctsrf, zmasq, longitude, altitude
    … …  
    216215    ! "wo(:, :, 2)" is for daylight time.
    217216
    218     LOGICAL, INTENT(in)  :: ok_ade, ok_aie                                 ! switches whether to use aerosol direct (indirect) effects or not
    219     LOGICAL, INTENT(in)  :: ok_volcan                                      ! produce volcanic diags (SW/LW heat flux and rate)
    220     INTEGER, INTENT(in)  :: flag_volc_surfstrat                            ! allow to impose volcanic cooling rate at surf or heating in strato
    221217    LOGICAL              :: lldebug=.false.
    222     INTEGER, INTENT(in)  :: flag_aerosol                                   ! takes value 0 (no aerosol) or 1 to 6 (aerosols)
    223     INTEGER, INTENT(in)  :: flag_aerosol_strat                             ! use stratospheric aerosols
    224     LOGICAL, INTENT(in)  :: flag_aer_feedback                              ! activate aerosol radiative feedback
    225218    REAL,    INTENT(in)  :: cldfra(KLON,KLEV), cldemi(KLON,KLEV), cldtaupd(KLON,KLEV)
    226219    REAL,    INTENT(in)  :: tau_aero(KLON,KLEV,naero_grp,2)                        ! aerosol optical properties (see aeropt.F)

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

    r6126 r6127  
    21442144       ENDIF !using_xios
    21452145       !
    2146        CALL printflag( tabcntr0,radpas,ok_journe, &
    2147             ok_instan, ok_region )
     2146       CALL printflag( tabcntr0,radpas,ok_region )
    21482147       !
    21492148       !
    … …  
    59735972               t_seri,q_seri,wo, &
    59745973               cldfrarad, cldemirad, cldtaurad, &
    5975                ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie,  ok_volcan, flag_volc_surfstrat, &
    5976                flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
    59775974               tau_aero, piz_aero, cg_aero, &
    59785975               tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm, &
    … …  
    60546051                     t_seri,q_seri,wo, &
    60556052                     cldfrarad, cldemirad, cldtaurad, &
    6056                      ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie,  ok_volcan, flag_volc_surfstrat, &
    6057                      flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
    60586053                     tau_aero, piz_aero, cg_aero, &
    60596054                     tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm, &
    … …  
    61036098                     t_seri,q_seri,wo, &
    61046099                     cldfrarad, cldemirad, cldtaurad, &
    6105                      ok_ade.OR.flag_aerosol_strat.GT.0, ok_aie,  ok_volcan, flag_volc_surfstrat, &
    6106                      flag_aerosol, flag_aerosol_strat, flag_aer_feedback, &
    61076100                     tau_aero, piz_aero, cg_aero, &
    61086101                     tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm, &
Note: See TracChangeset for help on using the changeset viewer.