Changeset 3809 for LMDZ6/branches/Ocean_skin/libf/dyn3dmem/conf_gcm.F90
- Timestamp:
- Jan 28, 2021, 1:33:33 PM (3 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
LMDZ6/branches/Ocean_skin/libf/dyn3dmem/conf_gcm.F90
r3605 r3809 345 345 ngroup=3 346 346 CALL getin('ngroup',ngroup) 347 if (mod(iim, 2**ngroup) /= 0) & 348 call abort_gcm("conf_gcm", 'iim must be multiple of 2**ngroup', 1) 349 if (2**ngroup > jjm + 1) & 350 call abort_gcm("conf_gcm", '2**ngroup must be <= jjm + 1', 1) 347 351 348 352 ! mode_top_bound : fields towards which sponge relaxation will be done:
Note: See TracChangeset
for help on using the changeset viewer.