Ignore:
Timestamp:
Feb 9, 2026, 6:26:25 PM (4 weeks ago)
Author:
asima
Message:

Variables tau_allaer,piz_allaer,cg_allaer in MACv2SP subroutine must be declared "INOUT" :

In physiq_mod.F90, variables tau_aero_sw_rrtm, piz_aero_sw_rrtm, cg_aero_sw_rrtm are first computed by subroutine readaerosol_optic_rrtm, then modified by MACv2SP "IF (flag_aerosol .EQ. 7)"

File:
1 edited

Legend:

Unmodified
Added
Removed

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

    r5845 r6071  
    3131  REAL,DIMENSION(klon),INTENT(IN)        :: xlon    ! longitudes pour chaque point
    3232  !
    33   REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(OUT) :: tau_allaer !  epaisseur optique aerosol
    34   REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(OUT) :: piz_allaer !  single scattering albedo aerosol
    35   REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(OUT) :: cg_allaer  !  asymmetry parameter aerosol
     33  REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(INOUT) :: tau_allaer !  epaisseur optique aerosol
     34  REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(INOUT) :: piz_allaer !  single scattering albedo aerosol
     35  REAL, DIMENSION(klon,klev,2,nbands_sw_rrtm), INTENT(INOUT) :: cg_allaer  !  asymmetry parameter aerosol
    3636  !
    3737  REAL,DIMENSION(klon,klev) :: aod_prof, ssa_prof, asy_prof
Note: See TracChangeset for help on using the changeset viewer.