Ignore:
Timestamp:
Jul 11, 2014, 4:15:06 PM (10 years ago)
Author:
milmd
Message:

LMDZ.GENERIC. OpenMP directives added in generic physic. When running in pure OpenMP or hybrid OpenMP/MPI, may have some bugs with condense_cloud and wstats routines.

Location:
trunk/LMDZ.COMMON/libf/dyn3dpar
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • trunk/LMDZ.COMMON/libf/dyn3dpar/gcm.F

    r1302 r1315  
    599599c       write(78,*) 'q',q
    600600
    601 c$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/,/logici/,/logicl/)
     601!c$OMP PARALLEL DEFAULT(SHARED) COPYIN(/temps/,/logici/,/logicl/)
     602!variable temps no longer exists
     603c$OMP PARALLEL DEFAULT(SHARED)
     604c$OMP1 COPYIN(/temps_r/,/temps_i/,/temps_c/,/logici/,/logicl/)
    602605      CALL leapfrog_p(ucov,vcov,teta,ps,masse,phis,q,
    603606     .              time_0)

  • trunk/LMDZ.COMMON/libf/dyn3dpar/sponge_mod_p.F90

    r1019 r1315  
    3131
    3232      USE Write_Field_p
    33       use parallel_lmdz, only: pole_sud,pole_nord,jj_begin,jj_end
     33      use parallel_lmdz, only: pole_sud,pole_nord,jj_begin,jj_end,OMP_CHUNK
    3434      implicit none
    3535#include "dimensions.h"
Note: See TracChangeset for help on using the changeset viewer.