Changeset 6170


Ignore:
Timestamp:
Apr 17, 2026, 10:44:27 AM (2 weeks ago)
Author:
idelkadi
Message:

Correction following the rewrite of the interface with the radiative codes: initializations for the “aerosol” outputs

Location:
LMDZ6/trunk/libf/phylmd
Files:
4 edited

Legend:

Unmodified
Added
Removed

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

    r6161 r6170  
    325325                       tauaero,pizaero,cgaero, &
    326326                       ztopsw_aero,ztopsw0_aero,zsolsw_aero,zsolsw0_aero, &
    327                        ztopswcf_aero,zsolswcf_aero,ztopswadaero,zsolswadaero,&
    328                        ztopswad0aero,zsolswad0aero,ztopswaiaero,zsolswaiaero)
     327                       ztopswcf_aero,zsolswcf_aero, &
     328                       ztopswadaero,zsolswadaero,ztopswad0aero, &
     329                       zsolswad0aero,zsollwadaero,zsollwad0aero, &
     330                       ztopswaiaero,zsolswaiaero,ztoplwaiaero,zsollwaiaero)
    329331       !
    330332       !===== iflag_rrtm ================================================

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

    r6159 r6170  
    232232                        ztopsw_aero,ztopsw0_aero,zsolsw_aero,zsolsw0_aero, &
    233233                        ztopswcf_aero,zsolswcf_aero,&
    234                         ztopswadaero,zsolswadaero,&
    235                         ztopswad0aero,zsolswad0aero,ztopswaiaero,zsolswaiaero)
     234                        ztopswadaero,zsolswadaero,ztopswad0aero, &
     235                        zsolswad0aero,zsollwadaero,zsollwad0aero, &
     236                        ztopswaiaero,zsolswaiaero,ztoplwaiaero,zsollwaiaero)
    236237
    237238     IF (iflag_rrtm == 0) THEN       ! remettre 0 juste pour tester l'ancien rayt via rrtm

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

    r6159 r6170  
    317317                       tauaero, pizaero, cgaero, &
    318318                       ztopsw_aero, ztopsw0_aero, zsolsw_aero, zsolsw0_aero, &
    319                        ztopswcf_aero, zsolswcf_aero, ztopswadaero, zsolswadaero, &
    320                        ztopswad0aero, zsolswad0aero, ztopswaiaero, zsolswaiaero)
     319                       ztopswcf_aero, zsolswcf_aero, &
     320                       ztopswadaero,zsolswadaero,ztopswad0aero, &
     321                       zsolswad0aero,zsollwadaero,zsollwad0aero, &
     322                       ztopswaiaero,zsolswaiaero,ztoplwaiaero,zsollwaiaero)
    321323       !
    322324       !===== iflag_rrtm ================================================

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

    r6159 r6170  
    3030       ztopsw_aero,ztopsw0_aero,zsolsw_aero,zsolsw0_aero, &
    3131       ztopswcf_aero,zsolswcf_aero,&
    32        ztopswadaero,zsolswadaero,&
    33        ztopswad0aero,zsolswad0aero,ztopswaiaero,zsolswaiaero)
     32       ztopswadaero,zsolswadaero,ztopswad0aero, &
     33       zsolswad0aero,zsollwadaero,zsollwad0aero, &
     34       ztopswaiaero,zsolswaiaero,ztoplwaiaero,zsollwaiaero)
    3435
    3536    !===================================================================================================
    … …  
    125126    REAL(KIND=8), INTENT(inout) :: zheat_volc(kdlon,kflev), zcool_volc(kdlon,kflev) !NL
    126127    !
    127     REAL(KIND=8), INTENT(inout) :: ztopswadaero(kdlon), zsolswadaero(kdlon)     ! Aerosol direct forcing at TOAand surface
    128     REAL(KIND=8), INTENT(inout) :: ztopswad0aero(kdlon), zsolswad0aero(kdlon)   ! Aerosol direct forcing at TOAand surface
    129     REAL(KIND=8), INTENT(inout) :: ztopswaiaero(kdlon), zsolswaiaero(kdlon)     ! dito, indirect
     128    REAL(KIND=8), INTENT(inout) :: ztopswadaero(kdlon), zsolswadaero(kdlon), &     ! Aerosol direct forcing at TOAand surface
     129                                   zsollwadaero(kdlon)
     130    REAL(KIND=8), INTENT(inout) :: ztopswad0aero(kdlon), zsolswad0aero(kdlon), &   ! Aerosol direct forcing at TOAand surface
     131                                   zsollwad0aero(kdlon)
     132    REAL(KIND=8), INTENT(inout) :: ztopswaiaero(kdlon), zsolswaiaero(kdlon), &     ! dito, indirect
     133                                   ztoplwaiaero(kdlon), zsollwaiaero(kdlon)
    130134    REAL(KIND=8), INTENT(inout) :: ztopsw_aero(kdlon,9), ztopsw0_aero(kdlon,9)
    131135    REAL(KIND=8), INTENT(inout) :: zsolsw_aero(kdlon,9), zsolsw0_aero(kdlon,9)
    132136    REAL(KIND=8), INTENT(inout) :: ztopswcf_aero(kdlon,3), zsolswcf_aero(kdlon,3)
    133    
     137
    134138    ! Variables out
    135139    INTEGER,      INTENT(out) :: iof
    … …  
    197201    zsolsw0_aero(:,:) = 0. !ym missing init : warning : not initialized in SW_AEROAR4
    198202
     203    ! Direct effect aero
    199204    ztopswadaero(:)   = 0. !ym missing init
    200205    zsolswadaero(:)   = 0. !ym missing init
     206    zsollwadaero(:)   = 0. !ym missing init
    201207    ztopswad0aero(:)  = 0. !ym missing init
    202208    zsolswad0aero(:)  = 0. !ym missing init
     209    zsollwad0aero(:)  = 0. !ym missing init
     210    ! Indirect effect aero
    203211    ztopswaiaero(:)   = 0. !ym missing init
    204212    zsolswaiaero(:)   = 0. !ym missing init
     213    ztoplwaiaero(:)   = 0. !ym missing init
     214    zsollwaiaero(:)   = 0. !ym missing init
     215    !
    205216    ztopswcf_aero(:,:)= 0.!ym missing init
    206217    zsolswcf_aero(:,:)= 0. !ym missing init
    207  
     218
    208219    !-------------------------------------------
    209220    nb_gr = KLON / kdlon
Note: See TracChangeset for help on using the changeset viewer.