Changeset 3288 for branches/2011/dev_NEMO_MERGE_2011/NEMOGCM
- Timestamp:
- 2012-01-27T14:32:32+01:00 (13 years ago)
- Location:
- branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/IOM/prtctl.F90
r3186 r3288 123 123 IF( PRESENT(mask2) ) zmask2 (:,:,:) = mask2 (:,:,:) 124 124 125 IF( lk_mpp ) THEN ! processor number125 IF( lk_mpp .AND. jpnij > 1 ) THEN ! processor number 126 126 sind = narea 127 127 eind = narea 128 ELSE ! processors total number128 ELSE ! processors total number 129 129 sind = 1 130 130 eind = ijsplt … … 137 137 ! Set indices for the SUM control 138 138 IF( .NOT. lsp_area ) THEN 139 IF (lk_mpp ) THEN139 IF (lk_mpp .AND. jpnij > 1) THEN 140 140 nictls = MAX( 1, nlditl(jn) - overlap ) 141 141 nictle = nleitl(jn) + overlap * MIN( 1, nlcitl(jn) - nleitl(jn)) … … 229 229 !!---------------------------------------------------------------------- 230 230 231 IF( lk_mpp ) THEN ! processor number231 IF( lk_mpp .AND. jpnij > 1 ) THEN ! processor number 232 232 sind = narea 233 233 eind = narea 234 ELSE ! total number of processors234 ELSE ! total number of processors 235 235 sind = 1 236 236 eind = ijsplt … … 294 294 ktime = 1 295 295 296 IF( lk_mpp ) THEN296 IF( lk_mpp .AND. jpnij > 1 ) THEN 297 297 sind = narea 298 298 eind = narea -
branches/2011/dev_NEMO_MERGE_2011/NEMOGCM/NEMO/OPA_SRC/nemogcm.F90
r3240 r3288 270 270 WRITE(numout,*) ' NEMO team' 271 271 WRITE(numout,*) ' Ocean General Circulation Model' 272 WRITE(numout,*) ' version 3.4_beta(2011) '272 WRITE(numout,*) ' version 3.4 (2011) ' 273 273 WRITE(numout,*) 274 274 WRITE(numout,*) … … 414 414 ! 415 415 IF( ln_ctl ) THEN ! sub-domain area indices for the control prints 416 IF( lk_mpp ) THEN416 IF( lk_mpp .AND. jpnij > 1 ) THEN 417 417 isplt = jpni ; jsplt = jpnj ; ijsplt = jpni*jpnj ! the domain is forced to the real split domain 418 418 ELSE
Note: See TracChangeset
for help on using the changeset viewer.