Ignore:
Timestamp:
Jan 18, 2022, 4:28:31 PM (3 years ago)
Author:
romain.vande
Message:

LMDZ_MARS RV : Open_MP;
Put all the "save" variables as "!$OMP THREADPRIVATE" in phymars.
The code can now be tested, see README for more info

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/LMDZ.MARS/libf/phymars/wstats_mod.F90

    r2573 r2616  
    4242character (len=50) :: namebis
    4343character (len=50), save :: firstvar
    44 !$OMP THREADPRIVATE(firstvar)
     44!$OMP THREADPRIVATE(mean3d,sd3d,dx3,mean2d,sd2d,dx2,firstvar)
    4545integer :: ierr,varid,nbdim,nid
    4646integer :: meanid,sdid
     
    5959character(len=120),save :: name_def(n_name_def_max)
    6060logical :: getout ! to trigger an early exit if variable not in output list
     61
     62!$OMP THREADPRIVATE(stats_def,n_name_def,name_def)
    6163
    6264! Added to work in parallel mode
Note: See TracChangeset for help on using the changeset viewer.