Changeset 3809 for LMDZ6/branches/Ocean_skin/libf/dyn3dmem/groupe_loc.F

Timestamp:

Jan 28, 2021, 1:33:33 PM (3 years ago)

Author:

lguez

Message:

Additional constraint on ngroup

Move existing constraint on ngroup from groupeun_loc to conf_gcm
(abort as soon as possible if input is bad) and add constraint on
ngroup and jjm. As in revision [3802] on trunk.

File:

• LMDZ6/branches/Ocean_skin/libf/dyn3dmem/groupe_loc.F (modified) (1 diff)

LMDZ6/branches/Ocean_skin/libf/dyn3dmem/groupe_loc.F

@@ -40 +40 @@
 c$OMP THREADPRIVATE(firstcall)
 
-      data firstcall/.true./
       integer ijb,ije,jjb,jje
       
-      if (firstcall) then
-         if(mod(iim,2**ngroup).ne.0) stop'probleme du nombre ede point'
-         firstcall=.false.
-      endif
-
 c   Champs 1D