Changeset 938 for LMDZ4/trunk/libf/phylmd/thermcell.F

Timestamp:

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

Author:

lmdzadmin

Message:

Enleve prints par defaut
IM

File:

• LMDZ4/trunk/libf/phylmd/thermcell.F (modified) (6 diffs)

LMDZ4/trunk/libf/phylmd/thermcell.F

@@ -991 +991 @@
 #ifdef troisD
 c       if (sorties) then
-      print*,'Debut des wrgradsfi'
+c      print*,'Debut des wrgradsfi'
 
 c      print*,'16 OK convect8'
@@ -1068 +1068 @@
 c     print*,'18 OK convect8'
 c      endif
-      print*,'Fin des wrgradsfi'
+c      print*,'Fin des wrgradsfi'
 #endif
 
@@ -1167 +1167 @@
 c                 detr_star(ig,l)=0.
              endif 
-            print*,'ok detr_star'
+c           print*,'ok detr_star'
 cprise en compte du detrainement dans le calcul du flux
              f_star(ig,l+1)=f_star(ig,l)+alim_star(ig,l)+entr_star(ig,l)
@@ -1188 +1188 @@
      s           -zw2(ig,l))/(zw2(ig,l+1)-zw2(ig,l))
                zw2(ig,l+1)=0.
-               print*,'linter=',linter(ig)
+c              print*,'linter=',linter(ig)
             else
                wa_moy(ig,l+1)=sqrt(zw2(ig,l+1))
@@ -1199 +1199 @@
          enddo
       enddo
-      print*,'fin calcul zw2'
+c     print*,'fin calcul zw2'
 c
 c Calcul de la couche correspondant a la hauteur du thermique
@@ -1230 +1230 @@
             if (l.le.lmax(ig)) then
                 if (zw2(ig,l).lt.0.)then
-                  print*,'pb2 zw2<0'
+c                 print*,'pb2 zw2<0'
                 endif
                 zw2(ig,l)=sqrt(zw2(ig,l))