Changeset 4033 for LMDZ6/trunk/libf/phylmdiso/fonte_neige_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/fonte_neige_mod.F90 (modified) (5 diffs)

LMDZ6/trunk/libf/phylmdiso/fonte_neige_mod.F90

@@ -345 +345 @@
     snow_evap = 0.
   
-#ifdef ISOVERIF
-        write(*,*) 'klon,snow_evap(413)=',klon,snow_evap(413)
-#endif
 
     IF (.NOT. ok_lic_cond) THEN
@@ -358 +355 @@
          snow = MAX(0.0, snow)                   !---just in case
       END WHERE
-#ifdef ISOVERIF
-        write(*,*) 'fonte_neige 342: snow_evap(413)=',snow_evap(413)
-#endif
 
     ELSE
@@ -367 +361 @@
       snow = snow - snow_evap * dtime         !---snow that remains or deposits on the ground
       snow = MAX(0.0, snow)                   !---just in case
-#ifdef ISOVERIF
-        write(*,*) 'fonte_neige 351: snow_evap(413)=',snow_evap(413)
-        write(*,*) 'evap(413)=',evap(413)
-        write(*,*) 'snow(413),dtime=',snow(413),dtime
-#endif
 
    ENDIF
@@ -380 +369 @@
         snow_evap_diag(:)=snow_evap(:)
         coeff_rel_diag=coeff_rel
-#ifdef ISOVERIF
-        write(*,*) 'fonte neige 350: snow_evap_diag(1)=',snow_evap_diag(1)
-        write(*,*) 'klon,snow_evap_diag(413)=',klon,snow_evap_diag(413)
-        write(*,*) 'snow_evap(413)=',snow_evap(413)
-#endif
 #endif
 
@@ -681 +665 @@
       IF (nisurf == is_lic) THEN
 !         coeff_rel = dtime/(tau_calv * rday)
-#ifdef ISOVERIF
-        j=61
-        write(*,*) 'fonte_neige 636:'
-        write(*,*) 'run_off_lic_0(j)=',run_off_lic_0(j)
-        write(*,*) 'xtrun_off_lic_0(:,j)=',xtrun_off_lic_0(:,j)
-#endif
+
          DO i = 1, knon
           j = knindex(i)