Changeset 4033 for LMDZ6/trunk/libf/phylmdiso/surf_land_bucket_mod.F90

Timestamp:

Nov 30, 2021, 2:00:13 PM (3 years ago)

Author:

crisi

Message:

nettoyage de sorties ecran

File:

• LMDZ6/trunk/libf/phylmdiso/surf_land_bucket_mod.F90 (modified) (8 diffs)

LMDZ6/trunk/libf/phylmdiso/surf_land_bucket_mod.F90

@@ -128 +128 @@
 #ifdef ISO
 #ifdef ISOVERIF
-        write(*,*) 'surf_land_bucket 152'
+        !write(*,*) 'surf_land_bucket 152'
         do i=1,knon
           if (iso_eau.gt.0) then
@@ -146 +146 @@
          enddo !do ixt=1,niso
         enddo !do i=1,knon
-        write(*,*) 'surf_land_bucket 152'
+        !write(*,*) 'surf_land_bucket 152'
 #endif
 #endif
@@ -211 +211 @@
    ! verif
 #ifdef ISOVERIF
-    write(*,*) 'surf_land_bucket 211'
+    !write(*,*) 'surf_land_bucket 211'
     do i=1,knon
       if (iso_eau.gt.0) then
@@ -236 +236 @@
    enddo !do i=1,knon 
 #ifdef ISOVERIF
-        write(*,*) 'surf_land_bucket 235'
+       ! write(*,*) 'surf_land_bucket 235'
        do i=1,knon  
         if (iso_eau.gt.0) then
@@ -243 +243 @@
         endif
       enddo !do i=1,knon
-        write(*,*) 'snow_prec(1)=',snow_prec(1)
-        write(*,*) 'xtsnow(:,1)=',xtsnow(:,1)
 #endif    
 #endif    
@@ -261 +259 @@
 #ifdef ISO
 #ifdef ISOVERIF
-        write(*,*) 'surf_land_bucket 258'
-        write(*,*) 'snow_prec(1)=',snow_prec(1)
-        write(*,*) 'xtsnow(:,1)=',xtsnow(:,1)
         do i=1,knon
          do ixt=1,niso
@@ -271 +266 @@
 #endif
 #ifdef ISOVERIF
-        write(*,*) 'surf_land_bucket 235'
+        !write(*,*) 'surf_land_bucket 235'
         do i=1,knon
           if (iso_eau.gt.0) then
@@ -297 +292 @@
           endif !if ((iso_O17.gt.0).and.(iso_O18.gt.0)) then
         enddo  !do i=1,knon 
-        write(*,*) 'surf_land_mod 291'
-        write(*,*) 'snow_evap_diag(1)=',snow_evap_diag(1)
+        !write(*,*) 'surf_land_mod 291'
+        !write(*,*) 'snow_evap_diag(1)=',snow_evap_diag(1)
 #endif          
         call calcul_iso_surf_ter_vectall(klon,knon, &