Changeset 938 for LMDZ4/trunk/libf/dyn3d/guide.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/guide.F (modified) (2 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