Changeset 3442 for LMDZ6/trunk/libf/phylmd/dyn1d

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

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