Changeset 3851 for LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/groupe_loc.F
- Timestamp:
- Feb 22, 2021, 12:44:07 PM (4 years ago)
- Location:
- LMDZ6/branches/LMDZ-tracers
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/LMDZ-tracers
- Property svn:mergeinfo changed
-
LMDZ6/branches/LMDZ-tracers/libf/dyn3dmem/groupe_loc.F
r2600 r3851 40 40 c$OMP THREADPRIVATE(firstcall) 41 41 42 data firstcall/.true./43 42 integer ijb,ije,jjb,jje 44 43 45 if (firstcall) then46 if(mod(iim,2**ngroup).ne.0) stop'probleme du nombre ede point'47 firstcall=.false.48 endif49 50 44 c Champs 1D 51 45
Note: See TracChangeset
for help on using the changeset viewer.