Changeset 2871 for LMDZ5/trunk/libf

Timestamp:

May 4, 2017, 2:29:23 PM (8 years ago)

Author:

fhourdin

Message:

Modification d'une correction pour permettre au cas GABLS4 de tourner
Tres tres louche...

File:

• LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol2.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol2.F90

@@ -114 +114 @@
 ! Modification parce qu'on avait un plantage sur un cas 1D.
 ! C'est evidemment une correction suspecte
-  IF (IFP>201) STOP'Ce plantage dans rrtm_taumol2 est il normal ...'
-  IF (IFP==201) IFP=200
+  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)
@@ -153 +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)