Changeset 2886 for LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_taumol2.F90

Timestamp:

May 20, 2017, 9:41:16 AM (8 years ago)

Author:

Laurent Fairhead

Message:

Merged trunk changes r2865:2885 into testing branch

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/phylmd/rrtm/rrtm_taumol2.F90 (modified) (2 diffs)

LMDZ5/branches/testing/libf/phylmd/rrtm/rrtm_taumol2.F90

@@ -111 +111 @@
   IFP=MAX(0,IFP)
 
+! FH 2017/05/02
+! Modification parce qu'on avait un plantage sur un cas 1D.
+! C'est evidemment une correction suspecte
+  IF (IFP>200) THEN
+      PRINT*,'WARNING IFP=',IFP,' 2.E2_JPRB*Z_FP+0.5_JPRB avec Z_FP=',Z_FP
+      IFP=200
+  ENDIF
+
   Z_FC00(I_LAY) = P_FAC00(I_LAY) * CORR2(IFP)
   Z_FC10(I_LAY) = P_FAC10(I_LAY) * CORR2(IFP)
@@ -147 +155 @@
 !---MI 981104        
   IF (IFP <= 0) IFP=0
+  IF (IFP>200) THEN
+      PRINT*,'WARNING IFP=',IFP,' 2.E2_JPRB*Z_FP+0.5_JPRB avec Z_FP=',Z_FP
+      IFP=200
+  ENDIF
 
   Z_FC00(I_LAY) = P_FAC00(I_LAY) * CORR2(IFP)