Changeset 3835 for dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat/phylmd/iniphysiq.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/dynlonlat_phylonlat/phylmd/iniphysiq.F90 (modified) (2 diffs)

dynamico_lmdz/aquaplanet/LMDZ5/libf/dynlonlat_phylonlat/phylmd/iniphysiq.F90

@@ -89 +89 @@
   REAL,ALLOCATABLE,SAVE :: boundslatfi(:,:)
 !$OMP THREADPRIVATE (latfi,lonfi,cufi,cvfi,airefi,boundslonfi,boundslatfi)
-  INTEGER :: itaufin_phy
   
 
@@ -237 +236 @@
   ! transfer some flags/infos from dynamics to physics
   
-  itaufin_phy=itaufin/iphysiq
-
   CALL inifis(punjours,prad,pg,pr,pcpp)