Changeset 2602 for LMDZ5/trunk/libf

Timestamp:

Jul 25, 2016, 10:44:13 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Missing usage of comvert_mod in lmdzd1d since the creation of the former (r2600).
EM+MPL

Location:

LMDZ5/trunk/libf

Files:

• dyn3d_common/comvert_mod.F90 (modified) (1 diff)
• phylmd/dyn1d/lmdz1d.F90 (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/comvert_mod.F90

@@ -6 +6 @@
 IMPLICIT NONE  
 
+PRIVATE
 INCLUDE "dimensions.h"
+
+PUBLIC :: ap,bp,presnivs,dpres,sig,ds,pa,preff,nivsigs,nivsig, &
+          aps,bps,scaleheight,pseudoalt,disvert_type, pressure_exner
 
 REAL ap(llm+1) ! hybrid pressure contribution at interlayers

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

@@ -37 +37 @@
    USE mod_const_mpi, ONLY: comm_lmdz
    USE physiq_mod, ONLY: physiq
+   USE comvert_mod, ONLY: presnivs, ap, bp, dpres,nivsig, nivsigs, pa, &
+                          preff
    USE temps_mod, ONLY: annee_ref, calend, day_end, day_ini, day_ref, &
                         itau_dyn, itau_phy, start_time
@@ -48 +50 @@
 !#include "indicesol.h"
 
-#include "comvert.h"
 #include "compar1d.h"
 #include "flux_arp.h"