Changeset 5791 for LMDZ6/branches/contrails/libf/phylmd/rrtm/radlsw.intfb.h

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/radlsw.intfb.h (modified) (2 diffs)

LMDZ6/branches/contrails/libf/phylmd/rrtm/radlsw.intfb.h

@@ -14 +14 @@
  & LRDUST,PPIZA_DST,PCGA_DST,PTAUREL_DST,&
  & PTAU_LW,&
- & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP)
+ & PFLUX,PFLUC,PFSDN ,PFSUP , PFSCDN , PFSCUP, &
+ & PTOAB, PTOACB )  !FC
 
 USE PARKIND1 ,ONLY : JPIM ,JPRB
@@ -86 +87 @@
 REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCDN(KLON,KLEV+1)  ! SW clear sky flux down
 REAL(KIND=JPRB) ,INTENT(OUT) :: PFSCUP(KLON,KLEV+1)  ! SW clear sky flux up
+!FC
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTOAB(KLON,NLW)  ! LW band all sky flux up
+REAL(KIND=JPRB) ,INTENT(OUT) :: PTOACB(KLON,NLW)  ! LW band clear sky flux up
 END SUBROUTINE RADLSW
 END INTERFACE