Changeset 2616 for trunk/LMDZ.MARS/libf/phymars/wstats_mod.F90
- Timestamp:
- Jan 18, 2022, 4:28:31 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/LMDZ.MARS/libf/phymars/wstats_mod.F90
r2573 r2616 42 42 character (len=50) :: namebis 43 43 character (len=50), save :: firstvar 44 !$OMP THREADPRIVATE( firstvar)44 !$OMP THREADPRIVATE(mean3d,sd3d,dx3,mean2d,sd2d,dx2,firstvar) 45 45 integer :: ierr,varid,nbdim,nid 46 46 integer :: meanid,sdid … … 59 59 character(len=120),save :: name_def(n_name_def_max) 60 60 logical :: getout ! to trigger an early exit if variable not in output list 61 62 !$OMP THREADPRIVATE(stats_def,n_name_def,name_def) 61 63 62 64 ! Added to work in parallel mode
Note: See TracChangeset
for help on using the changeset viewer.