Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • LMDZ6/trunk/libf/phylmdiso/phyetat0_mod.F90

    r4374 r4384  
    632632  ! Initialize module pbl_surface_mod
    633633
    634 #ifdef ISOVERIF
    635         write(*,*) 'phyetat0 572: snow(994,:)=',snow(994,2)
    636         write(*,*) 'xtsnow(:,994,2)=',xtsnow(:,994,2)
    637 #endif
     634! 994 est trop grand quand OpenMP est activé : on sort du tableau
     635!#ifdef ISOVERIF
     636!        write(*,*) 'phyetat0 572: snow(994,:)=',snow(994,2)
     637!        write(*,*) 'xtsnow(:,994,2)=',xtsnow(:,994,2)
     638!#endif
    638639
    639640  CALL pbl_surface_init(fder, snow, qsurf, tsoil)
Note: See TracChangeset for help on using the changeset viewer.