Changeset 2442 for LMDZ5/trunk/libf


Ignore:
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

Location:
LMDZ5/trunk/libf
Files:
10 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d/conf_gcm.F90

    r2247 r2442  
    297297  CALL getin('dissip_deltaz',dissip_deltaz )
    298298  CALL getin('dissip_zref',dissip_zref )
     299
     300  ! ngroup
     301  ngroup=3
     302  CALL getin('ngroup',ngroup)
     303
    299304
    300305  ! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0

  • LMDZ5/trunk/libf/dyn3d/groupe.F

    r1907 r2442  
    2222#include "comvert.h"
    2323
    24       integer ngroup
    25       parameter (ngroup=3)
     24!     integer ngroup
     25!     parameter (ngroup=3)
    2626
    2727

  • LMDZ5/trunk/libf/dyn3d/groupeun.F

    r1907 r2442  
    1313      REAL q(iip1,jjmax,llmax)
    1414
    15       INTEGER ngroup
    16       PARAMETER (ngroup=3)
     15!     INTEGER ngroup
     16!     PARAMETER (ngroup=3)
    1717
    1818      REAL airecn,qn
    … …  
    3737
    3838      LOGICAL, SAVE :: first = .TRUE.
    39       INTEGER,SAVE :: i_index(iim,ngroup)
     39!     INTEGER,SAVE :: i_index(iim,ngroup)
    4040      INTEGER      :: offset
    41       REAL         :: qsum(iim/ngroup)
     41!     REAL         :: qsum(iim/ngroup)
    4242
    4343      IF (first) THEN
    … …  
    142142#include "comgeom2.h"
    143143
    144       INTEGER ngroup
    145       PARAMETER (ngroup=3)
     144!     INTEGER ngroup
     145!     PARAMETER (ngroup=3)
    146146
    147147      REAL airen,airecn

  • LMDZ5/trunk/libf/dyn3d_common/comconst.h

    r1952 r2442  
    66
    77      COMMON/comconsti/im,jm,lllm,imp1,jmp1,lllmm1,lllmp1,lcl,          &
    8      &                 iflag_top_bound,mode_top_bound
     8     &                 iflag_top_bound,mode_top_bound,ngroup
    99      COMMON/comconstr/dtvr,daysec,                                     &
    1010     & pi,dtphys,dtdiss,rad,r,cpp,kappa,cotot,unsim,g,omeg              &
    … …  
    3232! top_bound sponge:
    3333      INTEGER iflag_top_bound ! sponge type
     34      INTEGER ngroup
    3435      INTEGER mode_top_bound  ! sponge mode
    3536      REAL tau_top_bound ! inverse of sponge characteristic time scale (Hz)

  • LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F90

    r2221 r2442  
    326326  CALL getin('dissip_zref',dissip_zref )
    327327
     328  ! ngroup
     329  ngroup=3
     330  CALL getin('ngroup',ngroup)
     331
     332  ! mode_top_bound : fields towards which sponge relaxation will be done:
    328333  ! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0
    329334  !                   iflag_top_bound=0 for no sponge

  • LMDZ5/trunk/libf/dyn3dmem/groupe_loc.F

    r1907 r2442  
    2222#include "comvert.h"
    2323
    24       integer ngroup
    25       parameter (ngroup=3)
     24!     integer ngroup
     25!     parameter (ngroup=3)
    2626
    2727

  • LMDZ5/trunk/libf/dyn3dmem/groupeun_loc.F

    r1907 r2442  
    1212      REAL q(iip1,sb:se,llmax)
    1313
    14       INTEGER ngroup
    15       PARAMETER (ngroup=3)
     14!     INTEGER ngroup
     15!     PARAMETER (ngroup=3)
    1616
    1717      REAL airecn,qn
    … …  
    3838      LOGICAL, SAVE :: first = .TRUE.
    3939!$OMP THREADPRIVATE(first)
    40       INTEGER,SAVE :: i_index(iim,ngroup)
     40!     INTEGER,SAVE :: i_index(iim,ngroup)
    4141      INTEGER      :: offset
    42       REAL         :: qsum(iim/ngroup)
     42!     REAL         :: qsum(iim/ngroup)
    4343
    4444      IF (first) THEN
    … …  
    143143#include "comgeom2.h"
    144144
    145       INTEGER ngroup
    146       PARAMETER (ngroup=3)
     145!     INTEGER ngroup
     146!     PARAMETER (ngroup=3)
    147147
    148148      REAL airen,airecn

  • LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F90

    r2221 r2442  
    324324  CALL getin('dissip_deltaz',dissip_deltaz )
    325325  CALL getin('dissip_zref',dissip_zref )
     326
     327  ! ngroup
     328  ngroup=3
     329  CALL getin('ngroup',ngroup)
    326330
    327331  ! top_bound sponge: only active if ok_strato=.true. and iflag_top_bound!=0

  • LMDZ5/trunk/libf/dyn3dpar/groupe_p.F

    r1907 r2442  
    2020#include "comvert.h"
    2121
    22       integer ngroup
    23       parameter (ngroup=3)
     22!     integer ngroup
     23!     parameter (ngroup=3)
    2424
    2525

  • LMDZ5/trunk/libf/dyn3dpar/groupeun_p.F

    r1907 r2442  
    1212      REAL q(iip1,jjmax,llmax)
    1313
    14       INTEGER ngroup
    15       PARAMETER (ngroup=3)
     14!     INTEGER ngroup
     15!     PARAMETER (ngroup=3)
    1616
    1717      REAL airecn,qn
    … …  
    3838      LOGICAL, SAVE :: first = .TRUE.
    3939!$OMP THREADPRIVATE(first)
    40       INTEGER,SAVE :: i_index(iim,ngroup)
     40!     INTEGER,SAVE :: i_index(iim,ngroup)
    4141      INTEGER      :: offset
    42       REAL         :: qsum(iim/ngroup)
     42!     REAL         :: qsum(iim/ngroup)
    4343
    4444      IF (first) THEN
    … …  
    143143#include "comgeom2.h"
    144144
    145       INTEGER ngroup
    146       PARAMETER (ngroup=3)
     145!     INTEGER ngroup
     146!     PARAMETER (ngroup=3)
    147147
    148148      REAL airen,airecn
Note: See TracChangeset for help on using the changeset viewer.