- Timestamp:
- 2013-06-11T12:25:38+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90
r3424 r3908 247 247 ! --------------------------------------------- 248 248 REWIND( numnam ) 249 jpbdta = 1 249 250 DO ib_bdy = 1, nb_bdy 250 251 251 jpbdta = 1252 252 IF( .NOT. ln_coords_file(ib_bdy) ) THEN ! Work out size of global arrays from namelist parameters 253 253 … … 317 317 318 318 nblendta(:,ib_bdy) = nblendta(:,ib_bdy) * nn_rimwidth(ib_bdy) 319 jpbdta = MAX VAL(nblendta(:,ib_bdy))319 jpbdta = MAX( jpbdta, MAXVAL(nblendta(:,ib_bdy)) ) 320 320 321 321 … … 324 324 325 325 CALL iom_open( cn_coords_file(ib_bdy), inum ) 326 jpbdta = 1 326 327 327 DO igrd = 1, jpbgrd 328 328 id_dummy = iom_varid( inum, 'nbi'//cgrid(igrd), kdimsz=kdimsz ) … … 330 330 jpbdta = MAX(jpbdta, kdimsz(1)) 331 331 ENDDO 332 CALL iom_close( inum ) 332 333 333 334 ENDIF … … 507 508 ELSE ! Read global index arrays from boundary coordinates file. 508 509 510 CALL iom_open( cn_coords_file(ib_bdy), inum ) 509 511 DO igrd = 1, jpbgrd 510 512 CALL iom_get( inum, jpdom_unknown, 'nbi'//cgrid(igrd), dta_global(1:nblendta(igrd,ib_bdy),:,1) )
Note: See TracChangeset
for help on using the changeset viewer.