Changeset 938 for LMDZ4/trunk/libf/dyn3d

Timestamp:

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

Author:

lmdzadmin

Message:

Enleve prints par defaut
IM

Location:

LMDZ4/trunk/libf/dyn3d

Files:

• guide.F (modified) (2 diffs)
• wrgrads.F (modified) (4 diffs)

LMDZ4/trunk/libf/dyn3d/guide.F

@@ -122 +122 @@
 c calcul de l'humidite saturante
 C-----------------------------------------------------------------------
-      print*,'OK0'
+c     print*,'OK0'
       CALL pression( ip1jmp1, ap, bp, ps, p )
       call massdair(p,masse)
-      print*,'OK1'
+c     print*,'OK1'
       CALL exner_hyb(ip1jmp1,ps,p,alpha,beta,pks,pk,pkf)
-      print*,'OK2'
+c     print*,'OK2'
       tnat(:,:)=pk(:,:)*teta(:,:)/cpp
-      print*,'OK3'
+c     print*,'OK3'
       unskap   = 1./ kappa
       pres(:,:)=preff*(pk(:,:)/cpp)**unskap
-      print*,'OK4'
+c     print*,'OK4'
       call q_sat(iip1*jjp1*llm,tnat,pres,qsat)
 
@@ -144 +144 @@
 c-----------------------------------------------------------------------
 
-      print*,'ONLINE=',online
+c     print*,'ONLINE=',online
       if(online.eq.-1) then
           return

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