Changeset 4036 for LMDZ6/trunk/libf/phylmdiso/pbl_surface_mod.F90

Timestamp:

Dec 1, 2021, 8:23:48 AM (3 years ago)

Author:

crisi

Message:

correction d'un probleme d'initialisation phylmdiso + suite du nettoyage dans phylmdiso

File:

• LMDZ6/trunk/libf/phylmdiso/pbl_surface_mod.F90 (modified) (3 diffs)

LMDZ6/trunk/libf/phylmdiso/pbl_surface_mod.F90

@@ -2435 +2435 @@
 #endif
 #ifdef ISOVERIF
-        write(*,*) 'pbl_surface_mod 1060: sortie surf_landice'
+        !write(*,*) 'pbl_surface_mod 1060: sortie surf_landice'
         do j=1,knon
           if (iso_eau.gt.0) then     
@@ -2530 +2530 @@
 #endif
 #ifdef ISOVERIF
-        write(*,*) 'pbl_surface_mod 1077: sortie surf_seaice'
+        !write(*,*) 'pbl_surface_mod 1077: sortie surf_seaice'
         do j=1,knon
           if (iso_eau.gt.0) then     
@@ -3275 +3275 @@
 #ifdef ISO
 #ifdef ISOVERIF
-       write(*,*) 'pbl_surface 2858'
+       !write(*,*) 'pbl_surface 2858'
        DO i = 1, klon
         do ixt=1,niso