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

Timestamp:

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

Author:

aborella

Message:

Merge with trunk r5789

Location:

LMDZ6/branches/contrails

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/rrtm_rrtm_140gp.F90 (modified) (5 diffs)

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

@@ -41 +41 @@
  & PCLDF , PTAUCLD,&
  & PTAU_LW,&
- & PEMIT , PFLUX , PFLUC, PTCLEAR &
- & )  
+ & PEMIT , PFLUX , PFLUC, PTCLEAR, &
+ & PTOAG, PTOACG) !FC
 
 ! *** This program is the driver for RRTM, the AER rapid model.  
@@ -88 +88 @@
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFLUC(KLON,2,KLEV+1) ! LW clear sky flux (1=up, 2=down)
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTCLEAR(KLON) ! clear-sky fraction of column
+
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOAG(KLON,JPGPT) ! full-sky TOA G !FC
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PTOACG(KLON,JPGPT) ! clear-sky TOA G !FC
+
 INTEGER(KIND=JPIM) :: ICLDLYR(JPLAY)        ! Cloud indicator
 REAL(KIND=JPRB) :: Z_CLDFRAC(JPLAY)           ! Cloud fraction
@@ -116 +120 @@
 REAL(KIND=JPRB) :: Z_TOTUFLUX(0:JPLAY)
 
-INTEGER(KIND=JPIM) :: i, icld, iplon, I_K
+REAL(KIND=JPRB) :: Z_TOAG(JPGPT) !FC
+REAL(KIND=JPRB) :: Z_TOACG(JPGPT) !FC
+
+
+INTEGER(KIND=JPIM) :: i, icld, iplon, I_K ,JI !FC
 INTEGER(KIND=JPIM) :: ISTART
 INTEGER(KIND=JPIM) :: IEND
@@ -253 +261 @@
 !  Clear radiative transfer is done for clear layers and cloudy radiative
 !  transfer is done for cloudy layers as identified by icldlyr.
+!FC
 
   CALL RRTM_RTRN1A_140GP (KLEV,ISTART,IEND,ICLDLYR,Z_CLDFRAC,Z_TAUCLD,Z_ABSS1,&
    & Z_OD,Z_TAUSF1,Z_CLFNET,Z_CLHTR,Z_FNET,Z_HTR,Z_TOTDFLUC,Z_TOTDFLUX,Z_TOTUFLUC,Z_TOTUFLUX,&
+   & Z_TOAG, Z_TOACG,&   
    & Z_TAVEL,Z_PZ,Z_TZ,Z_TBOUND,Z_PFRAC,Z_SEMISS,Z_SEMISLW,IREFLECT)  
 
@@ -270 +280 @@
     PFLUX(iplon,2,i+1) = -Z_TOTDFLUX(i)*Z_FLUXFAC
   ENDDO
+!FC
+  DO JI = 1, JPGPT
+   PTOAG(iplon,JI) = Z_TOAG(JI)*Z_FLUXFAC !FC faire attention aux niveaux (i+1 et i)
+   PTOACG(iplon,JI) = Z_TOACG(JI)*Z_FLUXFAC
+  ENDDO
+!FC
 ENDDO