Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/rrtm/recmwf_aero.F90

Timestamp:

Jul 28, 2025, 7:23:15 PM (6 days ago)

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/recmwf_aero.F90 (modified) (8 diffs)

LMDZ6/branches/contrails/libf/phylmd/rrtm/recmwf_aero.F90

@@ -24 +24 @@
      !--end
      & PFLUX,PFLUC,&
+     & PTOAB  , PTOACB, &  !FC
      & PFSDN ,PFSUP , PFSCDN , PFSCUP, PFSCCDN, PFSCCUP, PFLCCDN, PFLCCUP,&
      !--OB diagnostics
@@ -266 +267 @@
   REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLCCDN(KPROMA,KLEV+1) ! LW clear sky clean (no aerosol) flux down
   REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLCCUP(KPROMA,KLEV+1) ! LW clear sky clean (no aerosol) flux up
+  REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOACB(KPROMA,NLW)  ! FC LW clear sky bandes
+  REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOAB(KPROMA,NLW)   ! FC LW all sky bandes
   !--ajout VOLMIP
   REAL(KIND=JPRB)   ,INTENT(OUT)   :: volmip_solsw(KPROMA) ! SW clear sky in the case of VOLMIP
@@ -513 +516 @@
              & PSFSWDIF,PFSDNN, PFSDNV  ,&  
              & LRDUST,PPIZA_NAT,PCGA_NAT,PTAU_NAT,PTAU_LW_NAT,PFLUX,PFLUC,&
-             & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+             & PFSDN , PFSUP  , PFSCDN  , PFSCUP ,&
+             & PTOAB, PTOACB  )   !FC
 
         !* SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4
@@ -553 +557 @@
              & PSFSWDIF,PFSDNN, PFSDNV  ,&  
              & LRDUST,PPIZA_NAT,PCGA_NAT,PTAU_NAT,PTAU_LW_NAT,PFLUX,PFLUC,&
-             & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+             & PFSDN , PFSUP  , PFSCDN  , PFSCUP , &
+             & PTOAB,  PTOACB )  !FC
 
         !* SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4
@@ -593 +598 @@
              & PSFSWDIF,PFSDNN, PFSDNV  ,&  
              & LRDUST,PPIZA_TOT,PCGA_TOT,PTAU_TOT,PTAU_LW_TOT,PFLUX,PFLUC,&
-             & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+             & PFSDN , PFSUP  , PFSCDN  , PFSCUP ,& 
+             & PTOAB,  PTOACB )   !FC
 
         !* SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4
@@ -632 +638 @@
              & PSFSWDIF,PFSDNN, PFSDNV  ,&  
              & LRDUST,PPIZA_TOT,PCGA_TOT,PTAU_TOT,PTAU_LW_TOT,PFLUX,PFLUC,&
-             & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+             & PFSDN , PFSUP  , PFSCDN  , PFSCUP , &
+             & PTOAB, PTOACB )   !FC
 
         !* SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4
@@ -673 +680 @@
           & PSFSWDIF,PFSDNN, PFSDNV  ,&  
           & LRDUST,PPIZA_ZERO,PCGA_ZERO,PTAU_ZERO, PTAU_LW_ZERO,PFLUX,PFLUC,&
-          & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+          & PFSDN , PFSUP  , PFSCDN  , PFSCUP , &
+          & PTOAB, PTOACB )   !FC
 
      !* SAVE VARIABLES IN INTERIM VARIABLES A LA SW_AEROAR4
@@ -753 +761 @@
           & PSFSWDIF,PFSDNN, PFSDNV  ,&  
           & LRDUST,PPIZA_NOCONT,PCGA_NOCONT,PTAU_NOCONT,PTAU_LW_NOCONT,PFLUX,PFLUC,&
-          & PFSDN , PFSUP  , PFSCDN  , PFSCUP )
+          & PFSDN , PFSUP  , PFSCDN  , PFSCUP , &
+          & PTOAB,  PTOACB )   !FC
 
      ! save budgets LW and SW at TOA and surface