Changeset 2600 for LMDZ5/trunk/libf/dyn3dpar/top_bound_p.F

Timestamp:

Jul 23, 2016, 7:45:38 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: turn comvert.h into module comvert_mod.F90
EM

File:

• LMDZ5/trunk/libf/dyn3dpar/top_bound_p.F (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3dpar/top_bound_p.F

@@ -6 +6 @@
       USE comconst_mod, ONLY: iflag_top_bound, mode_top_bound,
      &                        tau_top_bound
+      USE comvert_mod, ONLY: presnivs, preff, scaleheight
+      
       IMPLICIT NONE
 c
 #include "dimensions.h"
 #include "paramet.h"
-#include "comvert.h"
 #include "comgeom2.h"
 
@@ -70 +71 @@
       REAL uzon(jjp1,llm),vzon(jjm,llm),tzon(jjp1,llm)
       
-      integer i 
+      integer i
       REAL,SAVE :: rdamp(llm) ! quenching coefficient
       real,save :: lambda(llm) ! inverse or quenching time scale (Hz)