Changeset 2189

Timestamp:

Jan 31, 2015, 10:31:49 AM (9 years ago)

Author:

Laurent Fairhead

Message:

Suppression print superflus

---

Deleting some superfluous prints

Location:

LMDZ5/trunk/libf/phylmd

Files:

• ozonecm_m.F90 (modified) (1 diff)
• pbl_surface_mod.F90 (modified) (1 diff)
• thermcell_plume.F90 (modified) (4 diffs)

LMDZ5/trunk/libf/phylmd/ozonecm_m.F90

@@ -91 +91 @@
     ozonecm = max(ozonecm, 1e-12)
 
-    print*,'ozonecm Version2'
+!    print*,'ozonecm Version2'
 
   END function ozonecm

LMDZ5/trunk/libf/phylmd/pbl_surface_mod.F90

@@ -1700 +1700 @@
      
        CASE(is_ter)
-          print*,"DEBUGTS",yts(knon/2),ylwdown(knon/2)
+!          print*,"DEBUGTS",yts(knon/2),ylwdown(knon/2)
           CALL surf_land(itap, dtime, date0, jour, knon, ni,&
                rlon, rlat, &

LMDZ5/trunk/libf/phylmd/thermcell_plume.F90

@@ -359 +359 @@
                    zbuoyjam(ig,l)=fact_shell*RG*(ztva_est(ig,l)-ztv_est(ig,l))/ztv_est(ig,l) &
     &                    +(1.-fact_shell)*zbuoy(ig,l)
-         print*,'on est pass?? par l??1',l,lt,ztv1,ztv2,ztv(ig,lt),ztv_est(ig,l),ztva_est(ig,l),ztv(ig,l), &
-   &                                   zinv,zlmelup,zbuoy(ig,l),zbuoyjam(ig,l)
                 elseif (zlmelup.ge.zinv) then
                  ztv_est2=atv2*0.5*(zlmelup+zinv)+btv2
@@ -370 +368 @@
     &            ztv_est1)/ztv_est1)+(1.-fact_shell)*zbuoy(ig,l)
 
-         print*,'on est pass?? par l??2',l,lt,ztv_est1,ztv_est2,ztv(ig,lt),ztv_est(ig,l),ztva_est(ig,l),ztv(ig,l), &
-   &                                   zinv,zlmelup,zbuoy(ig,l),zbuoyjam(ig,l)
                 else 
                    ztv_est(ig,l)=atv1*zlmel+btv1
                    zbuoyjam(ig,l)=fact_shell*RG*(ztva_est(ig,l)-ztv_est(ig,l))/ztv_est(ig,l) & 
     &                           +(1.-fact_shell)*zbuoy(ig,l)
-                 print*,'on est pass?? par l??3',l,lt,ztv1,ztv2,ztv(ig,lt),ztv_est(ig,l),ztva_est(ig,l),ztv(ig,l), &
-   &                                   zinv,zlmelup,zbuoy(ig,l),zbuoyjam(ig,l) 
                 endif
 
@@ -392 +386 @@
                 endif
 
-                 print*,'on est pass?? par l??4',l,lt,ztv1,ztv2,ztv(ig,lt),ztv(ig,l),ztva_est(ig,l), &
-   &                                   zlmelup,zbuoy(ig,l),zbuoyjam(ig,l) 
 !          zbuoyjam(ig,l)=fact_shell*RG*(((zlmelup-zltdwn)/zdz)*(ztva_est(ig,l)- & 
 !    &          ztv1)/ztv1+((zltdwn-zlmeldwn)/zdz)*(ztva_est(ig,l)- &
@@ -417 +409 @@
     &          ztv(ig,lt))/ztv(ig,lt)+((zdz2-lmel)/zdz3)*(ztva_est(ig,l)- &
     &          ztv(ig,lt-1))/ztv(ig,lt-1))+0.*zbuoy(ig,l)
-         print*,'on est pass?? par l??',l,lt,ztv(ig,lt),ztva_est(ig,l),ztv(ig,l), &
-   &                                   zbuoy(ig,l),zbuoyjam(ig,l)
         endif !   if (iflag_thermals_ed.lt.8) then