Changeset 2315 for LMDZ5/trunk/libf/phylmd/dyn1d

Timestamp:

Jun 25, 2015, 5:25:50 PM (10 years ago)

Author:

Ehouarn Millour

Message:

More on physics/dynamics separation: make a vertical_layers_mod module to contain information on the vertical discretization. This module should be used from within the physics (instead of including comvert.h from dynamics).
EM

File:

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

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

@@ -23 +23 @@
       USE mod_1D_amma_read
       USE print_control_mod, ONLY: prt_level
+      USE vertical_layers_mod, ONLY: init_vertical_layers
 
       implicit none
@@ -540 +541 @@
 !       Dans ce cas, on lit ap,bp dans le fichier hybrid.txt
       ENDIF
+      ! initialize ap,bp, etc. in vertical_layers_mod
+      call init_vertical_layers(llm,preff,scaleheight, &
+                            ap,bp,presnivs,pseudoalt)
+
       sig_s=presnivs/preff
       plev =ap+bp*psurf