Changeset 3106 for LMDZ6/trunk/libf/phylmd/rrtm

Timestamp:

Dec 3, 2017, 10:03:26 PM (7 years ago)

Author:

oboucher

Message:

Adding clear-sky clean (no aerosol) LW radiative fluxes at TOA and SFC as diagnostic

File:

• LMDZ6/trunk/libf/phylmd/rrtm/recmwf_aero.F90 (modified) (4 diffs)

LMDZ6/trunk/libf/phylmd/rrtm/recmwf_aero.F90

@@ -24 +24 @@
 !--end
  & PFLUX,PFLUC,&
- & PFSDN ,PFSUP , PFSCDN , PFSCUP, PFSCCDN, PFSCCUP, &
+ & PFSDN ,PFSUP , PFSCDN , PFSCUP, PFSCCDN, PFSCCUP, PFLCCDN, PFLCCUP,&
 !--OB diagnostics
  & PTOPSWADAERO,PSOLSWADAERO,&
@@ -110 +110 @@
 ! PFSCDN(KPROMA,KLEV+1)         ; SW clear sky flux down
 ! PFSCUP(KPROMA,KLEV+1)         ; SW clear sky flux up
-! PFSCCDN(KPROMA,KLEV+1)         ; SW clear sky clean (no aerosol) flux down
-! PFSCCUP(KPROMA,KLEV+1)         ; SW clear sky clean (no aerosol) flux up
+! PFSCCDN(KPROMA,KLEV+1)        ; SW clear sky clean (no aerosol) flux down
+! PFSCCUP(KPROMA,KLEV+1)        ; SW clear sky clean (no aerosol) flux up
+! PFLCCDN(KPROMA,KLEV+1)        ; LW clear sky clean (no aerosol) flux down
+! PFLCCUP(KPROMA,KLEV+1)        ; LW clear sky clean (no aerosol) flux up
 
 
@@ -243 +245 @@
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCDN(KPROMA,KLEV+1)  ! SW clear sky flux down
 REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCUP(KPROMA,KLEV+1)  ! SW clear sky flux up
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCCDN(KPROMA,KLEV+1)  ! SW clear sky clean (no aerosol) flux down
-REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCCUP(KPROMA,KLEV+1)  ! SW clear sky clean (no aerosol) flux up
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCCDN(KPROMA,KLEV+1) ! SW clear sky clean (no aerosol) flux down
+REAL(KIND=JPRB)   ,INTENT(OUT)   :: PFSCCUP(KPROMA,KLEV+1) ! SW clear sky clean (no aerosol) flux up
+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
 
 !     ==== COMPUTED IN RADITE ===
@@ -779 +783 @@
 
 IF (swaerofree_diag) THEN
-! copy clear-sky clean (no aerosol) case
+! copy shortwave clear-sky clean (no aerosol) case
   PFSCCUP(:,:) =   ZFSUP0_AERO(:,:,5)
   PFSCCDN(:,:) =   ZFSDN0_AERO(:,:,5)
+! copy longwave clear-sky clean (no aerosol) case
+  PFLCCUP(:,:) =   LWUP0_AERO(:,:,5)
+  PFLCCDN(:,:) =   LWDN0_AERO(:,:,5)
 ENDIF