Changeset 3442 for LMDZ6/trunk/libf/phylmd/dimphy.F90

Timestamp:

Jan 25, 2019, 11:12:29 AM (6 years ago)

Author:

Laurent Fairhead

Message:

Following merging of DYNAMICO/LMDZ branches, modifications needed for the 1D LMDZ model
Added a 1D special version of dimphy which is called before the real dimphy in lmdz1d
MPL

File:

• LMDZ6/trunk/libf/phylmd/dimphy.F90 (modified) (2 diffs, 1 prop)

LMDZ6/trunk/libf/phylmd/dimphy.F90

@@ -1 @@
-MODULE dimphy
+!
+! $Id$
+!
+  MODULE dimphy
   
   INTEGER,SAVE :: klon
@@ -37 +40 @@
   END SUBROUTINE Init_dimphy
 
+  SUBROUTINE Init_dimphy1D(klon0,klev0)
+! 1D special version of dimphy without ALLOCATE(zmasq)
+! which will be allocated in iniphysiq
+  IMPLICIT NONE
+  
+    INTEGER, INTENT(in) :: klon0
+    INTEGER, INTENT(in) :: klev0
+    
+    klon=klon0
+    kdlon=klon
+    kidia=1
+    kfdia=klon
+    klev=klev0
+    klevp1=klev+1
+    klevm1=klev-1
+    kflev=klev
+    
+  END SUBROUTINE Init_dimphy1D
+
   
 END MODULE dimphy