Changeset 227 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/mod_grid_phy_lmdz.F90

Timestamp:

07/16/14 18:05:01 (10 years ago)

Author:

milmd

Message:

Last LMDZ version (1315) with OpenMP directives and other stuff

File:

• codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/mod_grid_phy_lmdz.F90 (modified) (1 diff)

codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/mod_grid_phy_lmdz.F90

@@ -12 +12 @@
   INTEGER,SAVE :: nbp_lev  ! == llm
   INTEGER,SAVE :: klon_glo
+!$OMP THREADPRIVATE(nbp_lon,nbp_lat,nbp_lev,klon_glo)
 
   INTERFACE grid1dTo2d_glo