source: trunk/LMDZ.GENERIC/libf/phystd/comdiurn_h.F90 @ 1579

Last change on this file since 1579 was 1520, checked in by emillour, 9 years ago

Generic GCM:

  • Some fixes/adjustments to run using OpenMP (in the physics, best practice is to always have "save" variables, this of course includes all module variables, as "threadprivate").

EM

File size: 205 bytes
RevLine 
[787]1
2       module comdiurn_h
3
4       implicit none
5
[1520]6       real,allocatable,dimension(:),save :: sinlon, coslon, sinlat, coslat
7!$OMP THREADPRIVATE(sinlon,coslon,sinlat,coslat)
[787]8
9       end module comdiurn_h
10
Note: See TracBrowser for help on using the repository browser.