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

Timestamp:

Oct 10, 2016, 10:57:24 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Making the slab work:

• added a slab_heat_transp_mod module for horizontal diffusion and Ekman transport
• added storage and output of relevent variables in phyredem, phyetat0, phy_output_ctrlout_mod, phys_output_write_mod
• moved nslay (number of slab layers) out of dimphy into ocean_slab_mod.

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,nslay)
+!$OMP THREADPRIVATE(klon,kfdia,kidia,kdlon)
   REAL,save,allocatable,dimension(:) :: zmasq
 !$OMP THREADPRIVATE(zmasq)   
@@ -24 +23 @@
     
     klon=klon0
-    nslay=1 ! Slab, provisoire (F. Codron)
     kdlon=klon
     kidia=1