Changeset 227 for codes/icosagcm/branches/SATURN_DYNAMICO/LMDZ.COMMON/libf/phystd/iostart.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/iostart.F90 (modified) (4 diffs)

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

@@ -5 +5 @@
     INTEGER,SAVE :: nid_start ! NetCDF file identifier for startfi.nc file
     INTEGER,SAVE :: nid_restart ! NetCDF file identifier for restartfi.nc file
+!$OMP THREADPRIVATE(nid_start,nid_restart)
     
     ! restartfi.nc file dimension identifiers: (see open_restartphy())
@@ -16 +17 @@
     INTEGER,SAVE :: idim8 ! "ocean_layers" dimension
     INTEGER,SAVE :: timeindex ! current time index (for time-dependent fields)
+!$OMP THREADPRIVATE(idim1,idim2,idim3,idim4,idim5,idim6,idim7,timeindex)
     INTEGER,PARAMETER :: length=100 ! size of tab_cntrl array
     
@@ -473 +475 @@
     INTEGER                     :: ierr
     LOGICAL,SAVE :: already_created=.false.
+!$OMP THREADPRIVATE(already_created)
     
     IF (is_master) THEN
@@ -956 +959 @@
      INTEGER :: idim1d
      logical,save :: firsttime=.true.
+!$OMP THREADPRIVATE(firsttime)
          
     IF (is_master) THEN