Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ5/trunk/libf/phylmd/rrtm/rrtm_taumol2.F90

    r2869 r2871  
    114114! Modification parce qu'on avait un plantage sur un cas 1D.
    115115! 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
    118120
    119121  Z_FC00(I_LAY) = P_FAC00(I_LAY) * CORR2(IFP)
     
    153155!---MI 981104       
    154156  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
    155161
    156162  Z_FC00(I_LAY) = P_FAC00(I_LAY) * CORR2(IFP)
Note: See TracChangeset for help on using the changeset viewer.