Changeset 2442 for LMDZ5/trunk/libf/dyn3dpar/groupeun_p.F

Timestamp:

Feb 15, 2016, 10:10:39 AM (9 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/dyn3dpar/groupeun_p.F (modified) (3 diffs)

LMDZ5/trunk/libf/dyn3dpar/groupeun_p.F

@@ -12 +12 @@
       REAL q(iip1,jjmax,llmax)
 
-      INTEGER ngroup
-      PARAMETER (ngroup=3)
+!     INTEGER ngroup
+!     PARAMETER (ngroup=3)
 
       REAL airecn,qn
@@ -38 +38 @@
       LOGICAL, SAVE :: first = .TRUE.
 !$OMP THREADPRIVATE(first)
-      INTEGER,SAVE :: i_index(iim,ngroup)
+!     INTEGER,SAVE :: i_index(iim,ngroup)
       INTEGER      :: offset
-      REAL         :: qsum(iim/ngroup)
+!     REAL         :: qsum(iim/ngroup)
 
       IF (first) THEN
@@ -143 +143 @@
 #include "comgeom2.h"
 
-      INTEGER ngroup
-      PARAMETER (ngroup=3)
+!     INTEGER ngroup
+!     PARAMETER (ngroup=3)
 
       REAL airen,airecn