Changeset 3802 for LMDZ6/trunk/libf/dyn3dmem/groupe_loc.F
- Timestamp:
- Jan 16, 2021, 7:57:49 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/trunk/libf/dyn3dmem/groupe_loc.F
r2600 r3802 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.