Changeset 3908


Ignore:
Timestamp:
2013-06-11T12:25:38+02:00 (7 years ago)
Author:
davestorkey
Message:

Bug fixes for BDY - see ticket #1105.

Location:
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/BDY
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r3294 r3908  
    554554            ! Recalculate field counts 
    555555            !------------------------- 
    556             nb_bdy_fld_sum = 0 
    557556            IF( ib_bdy .eq. 1 ) THEN  
     557               nb_bdy_fld_sum = 0 
    558558               nb_bdy_fld(ib_bdy) = jfld 
    559559               nb_bdy_fld_sum     = jfld               
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/OPA_SRC/BDY/bdyini.F90

    r3424 r3908  
    247247      ! --------------------------------------------- 
    248248      REWIND( numnam )                     
     249      jpbdta = 1 
    249250      DO ib_bdy = 1, nb_bdy 
    250251 
    251          jpbdta = 1 
    252252         IF( .NOT. ln_coords_file(ib_bdy) ) THEN ! Work out size of global arrays from namelist parameters 
    253253  
     
    317317 
    318318            nblendta(:,ib_bdy) = nblendta(:,ib_bdy) * nn_rimwidth(ib_bdy) 
    319             jpbdta = MAXVAL(nblendta(:,ib_bdy))                
     319            jpbdta = MAX( jpbdta, MAXVAL(nblendta(:,ib_bdy)) ) 
    320320 
    321321 
     
    324324 
    325325            CALL iom_open( cn_coords_file(ib_bdy), inum ) 
    326             jpbdta = 1 
     326 
    327327            DO igrd = 1, jpbgrd 
    328328               id_dummy = iom_varid( inum, 'nbi'//cgrid(igrd), kdimsz=kdimsz )   
     
    330330               jpbdta = MAX(jpbdta, kdimsz(1)) 
    331331            ENDDO 
     332            CALL iom_close( inum ) 
    332333 
    333334         ENDIF  
     
    507508         ELSE            ! Read global index arrays from boundary coordinates file. 
    508509 
     510            CALL iom_open( cn_coords_file(ib_bdy), inum ) 
    509511            DO igrd = 1, jpbgrd 
    510512               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.