Changeset 2871 for LMDZ5/trunk/libf/phylmd
- Timestamp:
- May 4, 2017, 2:29:23 PM (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol2.F90
r2869 r2871 114 114 ! Modification parce qu'on avait un plantage sur un cas 1D. 115 115 ! C'est evidemment une correction suspecte 116 IF (IFP>201) STOP'Ce plantage dans rrtm_taumol2 est il normal ...' 117 IF (IFP==201) IFP=200 116 IF (IFP>200) THEN 117 PRINT*,'WARNING IFP=',IFP,' 2.E2_JPRB*Z_FP+0.5_JPRB avec Z_FP=',Z_FP 118 IFP=200 119 ENDIF 118 120 119 121 Z_FC00(I_LAY) = P_FAC00(I_LAY) * CORR2(IFP) … … 153 155 !---MI 981104 154 156 IF (IFP <= 0) IFP=0 157 IF (IFP>200) THEN 158 PRINT*,'WARNING IFP=',IFP,' 2.E2_JPRB*Z_FP+0.5_JPRB avec Z_FP=',Z_FP 159 IFP=200 160 ENDIF 155 161 156 162 Z_FC00(I_LAY) = P_FAC00(I_LAY) * CORR2(IFP)
Note: See TracChangeset
for help on using the changeset viewer.