Ignore:
Timestamp:
Mar 18, 2016, 12:09:23 PM (8 years ago)
Author:
Laurent Fairhead
Message:

Merged trunk changes r2434:2457 into testing branch

Location:
LMDZ5/branches/testing
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/branches/testing

  • LMDZ5/branches/testing/libf/dyn3d/groupeun.F

    r1910 r2471  
    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
Note: See TracChangeset for help on using the changeset viewer.