Changeset 2057 for LMDZ5/trunk/libf/phylmd/dimphy.F90

Timestamp:

Jun 16, 2014, 4:33:38 PM (10 years ago)

Author:

Ehouarn Millour

Message:

Preparatory stuff to fix and improve the slab ocean model.
FC

File:

• LMDZ5/trunk/libf/phylmd/dimphy.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/phylmd/dimphy.F90

@@ -9 +9 @@
   INTEGER,SAVE :: klevm1
   INTEGER,SAVE :: kflev
+  INTEGER,SAVE :: nslay
 
-!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon)
+!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon,nslay)
   REAL,save,allocatable,dimension(:) :: zmasq
 !$OMP THREADPRIVATE(zmasq)   
@@ -23 +24 @@
     
     klon=klon0
-    
+    nslay=1 ! Slab, provisoire (F. Codron)
     kdlon=klon
     kidia=1