Changeset 2442 for LMDZ5/trunk/libf/dyn3d_common

Timestamp:

Feb 15, 2016, 10:10:39 AM (8 years ago)

Author:

fhourdin

Message:

ngroup passe du statut de paramètre à constante.

Pour pouvoir l'ajuster en fonction de la resolution
ngroup est maintenant lu dans les .def. ngroup=3 par défaut

ngroup changed from parameter to constant

File:

• LMDZ5/trunk/libf/dyn3d_common/comconst.h (modified) (2 diffs)

LMDZ5/trunk/libf/dyn3d_common/comconst.h

@@ -6 +6 @@
 
       COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,          &
-     &                 iflag_top_bound,mode_top_bound
+     &                 iflag_top_bound,mode_top_bound,ngroup
       COMMON/comconstr/dtvr,daysec,                                     &
      & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg              &
@@ -32 +32 @@
 ! top_bound sponge:
       INTEGER iflag_top_bound ! sponge type
+      INTEGER ngroup
       INTEGER mode_top_bound  ! sponge mode
       REAL tau_top_bound ! inverse of sponge characteristic time scale (Hz)