Changeset 1422
- Timestamp:
- Aug 2, 2010, 1:43:47 PM (14 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ4/trunk/libf/phylmd/physiq.F
r1413 r1422 3081 3081 itaprad = itaprad + 1 3082 3082 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 3091 3093 3092 3094 c
Note: See TracChangeset
for help on using the changeset viewer.