Ignore:
Timestamp:
Aug 2, 2010, 1:43:47 PM (14 years ago)
Author:
jghattas
Message:

Corrected error in use of flag prt_level.
MPL

File:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ4/trunk/libf/phylmd/physiq.F

    r1413 r1422  
    30813081      itaprad = itaprad + 1
    30823082
    3083       if (iflag_radia.eq.0 .and. prt_level.ge.9) then
    3084       print *,'--------------------------------------------------'
    3085       print *,'>>>> ATTENTION rayonnement desactive pour ce cas'
    3086       print *,'>>>>           heat et cool mis a zero '
    3087       print *,'--------------------------------------------------'
    3088       heat=0.
    3089       cool=0.
    3090       endif
     3083      IF (iflag_radia.eq.0) THEN
     3084         IF (prt_level.ge.9) THEN
     3085            PRINT *,'--------------------------------------------------'
     3086            PRINT *,'>>>> ATTENTION rayonnement desactive pour ce cas'
     3087            PRINT *,'>>>>           heat et cool mis a zero '
     3088            PRINT *,'--------------------------------------------------'
     3089         END IF
     3090         heat=0.
     3091         cool=0.
     3092      END IF
    30913093
    30923094c
Note: See TracChangeset for help on using the changeset viewer.