Changeset 9069 for branches/2017
- Timestamp:
- 2017-12-15T10:35:02+01:00 (6 years ago)
- Location:
- branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/lib_mpp.F90
r9019 r9069 136 136 137 137 ! variables used in case of sea-ice 138 INTEGER, PUBLIC :: ncomm_ice !: communicator made by the processors with sea-ice (public so that it can be freed in limthd)138 INTEGER, PUBLIC :: ncomm_ice !: communicator made by the processors with sea-ice (public so that it can be freed in icethd) 139 139 INTEGER :: ngrp_iworld ! group ID for the world processors (for rheology) 140 140 INTEGER :: ngrp_ice ! group ID for the ice processors (for rheology) -
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/LBC/mppini.F90
r9019 r9069 251 251 ! warning ii*ij (zone) /= nproc (processors)! 252 252 253 IF( jperio == 1 .OR. jperio == 4 .OR. jperio == 6 ) THEN253 IF( jperio == 1 .OR. jperio == 4 .OR. jperio == 6 .OR. jperio == 7 ) THEN 254 254 IF( jpni == 1 )THEN 255 255 ibondi(ii,ij) = 2 … … 494 494 WRITE(numout,*) ' nn_hls = ', nn_hls 495 495 ENDIF 496 496 497 497 IF( nperio == 1 .AND. jpni /= 1 ) CALL ctl_stop( 'mpp_init: error on cyclicity' ) 498 499 IF( jperio == 7 .AND. ( jpni /= 1 .OR. jpnj /= 1 ) ) & 500 & CALL ctl_stop( ' mpp_init: error jperio = 7 works only with jpni = jpnj = 1' ) 498 501 499 502 ! ! Prepare mpp north fold
Note: See TracChangeset
for help on using the changeset viewer.