Changeset 4792 for branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
- Timestamp:
- 2014-09-26T13:04:47+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4621_NOC4_BDY_VERT_INTERP/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90
r4153 r4792 86 86 READ ( numnam_cfg, namzgr, IOSTAT = ios, ERR = 902 ) 87 87 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzgr in configuration namelist', lwp ) 88 WRITE ( numond, namzgr )88 IF(lwm) WRITE ( numond, namzgr ) 89 89 90 90 IF(lwp)WRITE(numout,*) … … 144 144 #endif 145 145 146 nfilcit(:,:) = ilci(:,:) 147 146 148 IF(lwp) WRITE(numout,*) 147 149 IF(lwp) WRITE(numout,*) ' mpp_init2: defines mpp subdomains' … … 175 177 END DO 176 178 ENDIF 179 nfiimpp(:,:) = iimppt(:,:) 177 180 178 181 IF( jpnj > 1 )THEN … … 195 198 ili = ilci(ii,ij) 196 199 ilj = ilcj(ii,ij) 197 198 200 ibondj(ii,ij) = -1 199 201 IF( jarea > jpni ) ibondj(ii,ij) = 0 200 202 IF( jarea > (jpnj-1)*jpni ) ibondj(ii,ij) = 1 201 203 IF( jpnj == 1 ) ibondj(ii,ij) = 2 202 203 204 ibondi(ii,ij) = 0 204 205 IF( MOD(jarea,jpni) == 1 ) ibondi(ii,ij) = -1 … … 284 285 IF( jarea > ijm1 ) ipolj(ii,ij) = 3 285 286 IF( MOD(jpni,2) == 1 .AND. jarea == imil ) ipolj(ii,ij) = 4 286 IF( ipolj(ii,ij) == 3 ) iono(ii,ij) = jpni*jpnj-jarea+ijm1 - 1! MPI rank of northern neighbour287 IF( ipolj(ii,ij) == 3 ) iono(ii,ij) = jpni*jpnj-jarea+ijm1 ! MPI rank of northern neighbour 287 288 ENDIF 288 289 IF( jperio == 5 .OR. jperio == 6 ) THEN … … 291 292 IF( jarea > ijm1) ipolj(ii,ij) = 5 292 293 IF( MOD(jpni,2) == 1 .AND. jarea == imil ) ipolj(ii,ij) = 6 293 IF( ipolj(ii,ij) == 5) iono(ii,ij) = jpni*jpnj-jarea+ijm1 - 1! MPI rank of northern neighbour294 IF( ipolj(ii,ij) == 5) iono(ii,ij) = jpni*jpnj-jarea+ijm1 ! MPI rank of northern neighbour 294 295 ENDIF 295 296 … … 307 308 ENDIF 308 309 END DO 310 311 nfipproc(:,:) = ipproc(:,:) 312 309 313 310 314 ! Control
Note: See TracChangeset
for help on using the changeset viewer.