Changeset 2597 for LMDZ5/trunk/libf/dyn3d_common/comconst_mod.F90

Timestamp:

Jul 22, 2016, 8:44:47 AM (8 years ago)

Author:

Ehouarn Millour

Message:

Cleanup in the dynamics: get rid of comconst.h, make it a module comconst_mod.
EM

File:

• LMDZ5/trunk/libf/dyn3d_common/comconst_mod.F90 (moved) (moved from LMDZ5/trunk/libf/dyn3d_common/comconst.h) (3 diffs)

LMDZ5/trunk/libf/dyn3d_common/comconst_mod.F90

@@ -2 +2 @@
 ! $Id$
 !
-!-----------------------------------------------------------------------
-! INCLUDE comconst.h
 
-      COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,          &
-     &                 iflag_top_bound,mode_top_bound,ngroup
-      COMMON/comconstr/dtvr,daysec,                                     &
-     & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg              &
-     &                   ,dissip_factz,dissip_deltaz,dissip_zref        &
-     &                   ,tau_top_bound,                                &
-     & daylen,year_day,molmass, ihf
+MODULE comconst_mod
 
+IMPLICIT NONE  
 
       INTEGER im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl
@@ -32 +25 @@
 ! top_bound sponge:
       INTEGER iflag_top_bound ! sponge type
-      INTEGER ngroup
+      INTEGER ngroup ! parameter to group points (along longitude) near poles
       INTEGER mode_top_bound  ! sponge mode
       REAL tau_top_bound ! inverse of sponge characteristic time scale (Hz)
@@ -41 +34 @@
       REAL ihf ! (W/m2) Intrinsic heat flux (for giant planets)
 
-!-----------------------------------------------------------------------
+
+END MODULE comconst_mod