Changeset 3442

Timestamp:

Jan 25, 2019, 11:12:29 AM (5 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

Location:

LMDZ6/trunk/libf/phylmd

Files:

• dimphy.F90 (modified) (2 diffs, 1 prop)
• dyn1d/lmdz1d.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

LMDZ6/trunk/libf/phylmd/dyn1d/lmdz1d.F90

@@ +1 @@
+!
+! $Id$
+!
 !#ifdef CPP_1D
 !#include "../dyn3d/mod_const_mpi.F90"
@@ -581 +584 @@
 !      call init_phys_lmdz(1,1,llm,1,(/1/)) ! job now done via iniphysiq
 !     but we still need to initialize dimphy module (klon,klev,etc.)  here.
-      call init_dimphy(1,llm)
+      call init_dimphy1D(1,llm)
       call suphel
       call infotrac_init