Changeset 2442 for LMDZ5/trunk/libf/dyn3d/groupeun.F
- Timestamp:
- Feb 15, 2016, 10:10:39 AM (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ5/trunk/libf/dyn3d/groupeun.F
r1907 r2442 13 13 REAL q(iip1,jjmax,llmax) 14 14 15 16 15 ! INTEGER ngroup 16 ! PARAMETER (ngroup=3) 17 17 18 18 REAL airecn,qn … … 37 37 38 38 LOGICAL, SAVE :: first = .TRUE. 39 39 ! INTEGER,SAVE :: i_index(iim,ngroup) 40 40 INTEGER :: offset 41 41 ! REAL :: qsum(iim/ngroup) 42 42 43 43 IF (first) THEN … … 142 142 #include "comgeom2.h" 143 143 144 145 144 ! INTEGER ngroup 145 ! PARAMETER (ngroup=3) 146 146 147 147 REAL airen,airecn
Note: See TracChangeset
for help on using the changeset viewer.