Changeset 938 for LMDZ4/trunk/libf/dyn3d/wrgrads.F

Timestamp:

Mar 31, 2008, 6:14:45 PM (17 years ago)

Author:

lmdzadmin

Message:

Enleve prints par defaut
IM

File:

• LMDZ4/trunk/libf/dyn3d/wrgrads.F (modified) (4 diffs)

LMDZ4/trunk/libf/dyn3d/wrgrads.F

@@ -29 +29 @@
       writectl=.false.
 
-      print*,if,iid(if),jid(if),ifd(if),jfd(if)
+c     print*,if,iid(if),jid(if),ifd(if),jfd(if)
       iii=iid(if)
       iji=jid(if)
@@ -38 +38 @@
       lm=lmd(if)
 
-      print*,'im,jm,lm,name,firsttime(if)'
-      print*,im,jm,lm,name,firsttime(if)
+c     print*,'im,jm,lm,name,firsttime(if)'
+c     print*,im,jm,lm,name,firsttime(if)
 
       if(firsttime(if)) then
@@ -57 +57 @@
             tvar(ivar(if),if)=titlevar(1:lnblnk(titlevar))
             nld(ivar(if),if)=nl
-            print*,'initialisation ecriture de ',var(ivar(if),if)
-            print*,'if ivar(if) nld ',if,ivar(if),nld(ivar(if),if)
+c           print*,'initialisation ecriture de ',var(ivar(if),if)
+c           print*,'if ivar(if) nld ',if,ivar(if),nld(ivar(if),if)
          endif
          writectl=.true.
@@ -81 +81 @@
       endif
 
-      print*,'ivar(if),nvar(if),var(ivar(if),if),writectl'
-      print*,ivar(if),nvar(if),var(ivar(if),if),writectl
+c     print*,'ivar(if),nvar(if),var(ivar(if),if),writectl'
+c     print*,ivar(if),nvar(if),var(ivar(if),if),writectl
       do l=1,nl
          irec(if)=irec(if)+1