Changeset 4384 for LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

Timestamp:

Jan 13, 2023, 4:28:37 PM (17 months ago)

Author:

Sebastien Nguyen

Message:

Modifications to qminimum_loc to allow consistent results in debug with OpenMP(and MPI). Removed some isoverif outputs from phyetat0_mod

File:

• LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90 (modified) (1 diff)

LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

@@ -632 +632 @@
   ! Initialize module pbl_surface_mod 
 
-#ifdef ISOVERIF
-        write(*,*) 'phyetat0 572: snow(994,:)=',snow(994,2)
-        write(*,*) 'xtsnow(:,994,2)=',xtsnow(:,994,2)
-#endif
+! 994 est trop grand quand OpenMP est activé : on sort du tableau
+!#ifdef ISOVERIF
+!        write(*,*) 'phyetat0 572: snow(994,:)=',snow(994,2)
+!        write(*,*) 'xtsnow(:,994,2)=',xtsnow(:,994,2)
+!#endif
 
   CALL pbl_surface_init(fder, snow, qsurf, tsoil)