Changeset 1134 for LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

Timestamp:

Mar 26, 2009, 12:57:31 PM (16 years ago)

Author:

Laurent Fairhead

Message:

Menage sur les impressions intempestives par transformation des

print*,

en

if (prt_level > ??) write(lunout,*)

LF

File:

• LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F (modified) (1 diff)

LMDZ4/branches/LMDZ4-dev/libf/phylmd/physiq.F

@@ -2025 +2025 @@
        do i=1,klon
           if (alp(i)>alp_max) then
-             print*,'WARNING SUPER ALP (seuil=',alp_max,
+             IF(prt_level>9)WRITE(lunout,*)                             &
+     &       'WARNING SUPER ALP (seuil=',alp_max,
      ,       '): i, alp, alp_wake,ale',i,alp(i),alp_wake(i),ale(i)
              alp(i)=alp_max
           endif
           if (ale(i)>ale_max) then
-             print*,'WARNING SUPER ALE (seuil=',ale_max,
+             IF(prt_level>9)WRITE(lunout,*)                             &
+     &       'WARNING SUPER ALE (seuil=',ale_max,
      ,       '): i, alp, alp_wake,ale',i,ale(i),ale_wake(i),alp(i)
              ale(i)=ale_max