Ignore:
Timestamp:
Jul 11, 2022, 6:42:53 PM (2 years ago)
Author:
musat
Message:

Keep "WARNING IFP=" message for the first pass through physics
IM

File:
1 edited

Legend:

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

    r2871 r4199  
    2222 & FORREF   ,SELFREF , REFPARAM 
    2323USE YOERRTBG2, ONLY : CORR1  ,CORR2
     24
     25USE print_control_mod, ONLY: mydebug=>debug , lunout, prt_level, &
     26 & alert_first_call, call_alert, prt_alerte
    2427
    2528!  Input
     
    6568!      EQUIVALENCE (TAUAERL(1,2),TAUAER)
    6669
     70    CHARACTER (LEN=20) :: modname='rrtm_taumol2'
     71    CHARACTER*80 message
     72
    6773!     Compute the optical depth by interpolating in ln(pressure) and
    6874!     temperature.  Below LAYTROP, the water vapor self-continuum is
     
    115121! C'est evidemment une correction suspecte
    116122  IF (IFP>200) THEN
     123   IF (call_alert) THEN
     124      message='WARNING IFP='
     125      CALL prt_alerte(message,modname,1)
    117126      PRINT*,'WARNING IFP=',IFP,' 2.E2_JPRB*Z_FP+0.5_JPRB avec Z_FP=',Z_FP
    118127      IFP=200
     128   ENDIF
    119129  ENDIF
    120130
     
    156166  IF (IFP <= 0) IFP=0
    157167  IF (IFP>200) THEN
     168   IF (call_alert) THEN
     169      message='WARNING IFP='
     170      CALL prt_alerte(message,modname,1)
    158171      PRINT*,'WARNING IFP=',IFP,' 2.E2_JPRB*Z_FP+0.5_JPRB avec Z_FP=',Z_FP
    159172      IFP=200
     173   ENDIF
    160174  ENDIF
    161175
Note: See TracChangeset for help on using the changeset viewer.