Changeset 3835 for dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/inifis_mod.F90

Timestamp:

Jun 18, 2015, 1:53:21 PM (9 years ago)

Author:

ymipsl

Message:

Some missing threadprivate...

YM

File:

• dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/inifis_mod.F90 (modified) (1 diff)

dynamico_lmdz/aquaplanet/LMDZ5/libf/phylmd/inifis_mod.F90

@@ -1 @@
-
-! $Id: $
 MODULE inifis_mod
 
-  IMPLICIT NONE
-  ! for now constants and flags transmitted from dyn to phys are stored here
-!  REAL,SAVE    :: daysec ! length of reference day (s)
-!  REAL,SAVE    :: dtphys ! physics time step (s)
-!  INTEGER,SAVE :: day_step ! number of physical steps per day
-!  INTEGER,SAVE :: nday ! number of days to run
-!!$OMP THREADPRIVATE(daysec,dtphys,day_step,iphysiq,dayref,anneeref,nday)
-!  INTEGER,SAVE :: annee_ref ! reference year as read from start file
-!  INTEGER,SAVE :: day_ini
-!  INTEGER,SAVE :: day_end
-!!$OMP THREADPRIVATE(annee_ref,day_ini,day_end)
-!  INTEGER,SAVE :: itau_phy   ! number of physiq iteration from origin
-!  INTEGER,SAVE :: itaufin    ! final iteration 
-!  REAL,SAVE    :: start_time
-!  INTEGER,SAVE :: day_ref
-!  REAL,SAVE :: jD_ref
-!!$OMP THREADPRIVATE(itau_phy,itaufin,start_time,day_ref,JD_ref)
-!  INTEGER,SAVE :: raz_date
-!  INTEGER,SAVE :: lunout=6 ! default output file identifier (6==screen)
-!  INTEGER,SAVE :: prt_level ! Output level
-!  LOGICAL,SAVE :: debug ! flag to specify if in "debug mode"
-!!$OMP THREADPRIVATE(lunout,prt_level,debug)
+
 
 CONTAINS