Changeset 2839 for LMDZ5/branches/testing/libf/phylmd/YOETHF.h

Timestamp:

Mar 30, 2017, 4:16:38 PM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2785:2838 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/YOETHF.h (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/YOETHF.h

@@ -19 +19 @@
       REAL R5ALVCP,R5ALSCP,RALVDCP,RALSDCP,RALFDCP,RTWAT,RTBER,RTBERCU
       REAL RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,RKOOP2
+      LOGICAL OK_BAD_ECMWF_THERMO ! If TRUE, then variables set by rrtm/suphec.F90
+                                  ! If FALSE, then variables set by suphel.F90
       COMMON /YOETHF/R2ES, R3LES, R3IES, R4LES, R4IES, R5LES, R5IES,    &
      &               RVTMP2, RHOH2O,                                    &
@@ -24 +26 @@
      &               RALFDCP,RTWAT,RTBER,RTBERCU,                       &
      &               RTICE,RTICECU,RTWAT_RTICE_R,RTWAT_RTICECU_R,RKOOP1,&
-     &               RKOOP2
+     &               RKOOP2,                                            &
+     &               OK_BAD_ECMWF_THERMO
 
 !$OMP THREADPRIVATE(/YOETHF/)