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

Timestamp:

Aug 4, 2025, 3:03:07 PM (11 days ago)

Author:

aborella

Message:

Additional diags for contrails + simplified coupling between deep conv and cirrus clouds + small modifsin RRTM for RF of contrails alone

File:

• LMDZ6/branches/contrails/libf/phylmd/rrtm/radlsw.intfb.h (modified) (4 diffs)

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

@@ -9 +9 @@
  & PTH  , PT    , PTS  , PNBAS, PNTOP,&
  & PREF_LIQ, PREF_ICE,&
+ & PCLFR_CONT, PQIWP_CONT, PREF_ICE_CONT,&
  & PEMIT, PFCT  , PFLT , PFCS , PFLS,&
  & PFRSOD,PSUDU , PUVDF, PPARF, PPARCF, PTINCF,&
@@ -41 +42 @@
 REAL(KIND=JPRB) ,INTENT(IN) :: PCCO2
 REAL(KIND=JPRB) ,INTENT(IN) :: PCLFR(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PCLFR_CONT(KLON,KLEV)
 REAL(KIND=JPRB) ,INTENT(IN) :: PDP(KLON,KLEV)
 REAL(KIND=JPRB) ,INTENT(IN) :: PEMIS(KLON)
@@ -49 +51 @@
 REAL(KIND=JPRB) ,INTENT(IN) :: PQ(KLON,KLEV)
 REAL(KIND=JPRB) ,INTENT(IN) :: PQIWP(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PQIWP_CONT(KLON,KLEV)
 REAL(KIND=JPRB) ,INTENT(IN) :: PQLWP(KLON,KLEV)
 REAL(KIND=JPRB) ,INTENT(IN) :: PQS(KLON,KLEV)
@@ -60 +63 @@
 REAL(KIND=JPRB) ,INTENT(IN) :: PREF_LIQ(KLON,KLEV)
 REAL(KIND=JPRB) ,INTENT(IN) :: PREF_ICE(KLON,KLEV)
+REAL(KIND=JPRB) ,INTENT(IN) :: PREF_ICE_CONT(KLON,KLEV)
 LOGICAL ,INTENT(IN) :: LRDUST
 REAL(KIND=JPRB) ,INTENT(IN) :: PPIZA_DST(KLON,KLEV,NSW)