Changeset 1795 for LMDZ5/branches/testing/libf/dyn3dmem/comconst.h

Timestamp:

Jul 18, 2013, 10:20:28 AM (12 years ago)

Author:

Ehouarn Millour

Message:

Version testing basee sur la r1794

---

Testing release based on r1794

Location:

LMDZ5/branches/testing

Files:

• . (modified) (1 prop)
• libf/dyn3dmem/comconst.h (modified) (4 diffs)

LMDZ5/branches/testing/libf/dyn3dmem/comconst.h

@@ -1 +1 @@
 !
-! $Id$
+! $Id: comconst.h 1671 2012-10-24 07:10:10Z emillour $
 !
 !-----------------------------------------------------------------------
@@ -6 +6 @@
 
       COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,          &
-     &                 iflag_top_bound
+     &                 iflag_top_bound,mode_top_bound
       COMMON/comconstr/dtvr,daysec,                                     &
      & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg              &
@@ -21 +21 @@
       REAL dtdiss ! (s) time step for the dissipation
       REAL rad ! (m) radius of the planet
-      REAL r ! Reduced Gas constant r=R/mu 
-             ! with R=8.31.. J.K-1.mol-1, mu: mol mass of atmosphere (kg/mol) 
+      REAL r ! Reduced Gas constant r=R/mu
+             ! with R=8.31.. J.K-1.mol-1, mu: mol mass of atmosphere (kg/mol)
       REAL cpp   ! Specific heat Cp (J.kg-1.K-1)
       REAL kappa ! kappa=R/Cp 
@@ -30 +30 @@
       REAL omeg ! (rad/s) rotation rate of the planet
       REAL dissip_factz,dissip_deltaz,dissip_zref
-      INTEGER iflag_top_bound
-      REAL tau_top_bound
+! top_bound sponge:
+      INTEGER iflag_top_bound ! sponge type
+      INTEGER mode_top_bound  ! sponge mode
+      REAL tau_top_bound ! inverse of sponge characteristic time scale (Hz)
       REAL daylen ! length of solar day, in 'standard' day length
       REAL year_day ! Number of standard days in a year