Ignore:
Timestamp:
2013-06-11T13:01:03+02:00 (7 years ago)
Author:
davestorkey
Message:

Bug fixes for BDY module - see ticket #1106.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r3851 r3909  
    476476            IF( nn_dyn2d(ib_bdy) .gt. 0 .and. ( nn_dyn2d_dta(ib_bdy) .eq. 1 .or. nn_dyn2d_dta(ib_bdy) .eq. 3 ) ) THEN  
    477477 
    478                IF( nn_tra(ib_bdy) .ne. 4 ) THEN ! runoff condition : no ssh reading 
     478               IF( nn_dyn2d(ib_bdy) .ne. jp_frs .and. nn_tra(ib_bdy) .ne. 4 ) THEN ! runoff condition : no ssh reading 
    479479                  jfld = jfld + 1 
    480480                  blf_i(jfld) = bn_ssh 
     
    572572            ! Recalculate field counts 
    573573            !------------------------- 
    574             nb_bdy_fld_sum = 0 
    575574            IF( ib_bdy .eq. 1 ) THEN  
     575               nb_bdy_fld_sum = 0 
    576576               nb_bdy_fld(ib_bdy) = jfld 
    577577               nb_bdy_fld_sum     = jfld               
     
    616616               ALLOCATE( dta_bdy(ib_bdy)%u2d(ilen0(2)) ) 
    617617               ALLOCATE( dta_bdy(ib_bdy)%v2d(ilen0(3)) ) 
    618                IF (nn_dyn2d_dta(ib_bdy).eq.1.or.nn_dyn2d_dta(ib_bdy).eq.3) THEN 
     618               IF ( nn_dyn2d(ib_bdy) .ne. jp_frs .and. (nn_dyn2d_dta(ib_bdy).eq.1.or.nn_dyn2d_dta(ib_bdy).eq.3) ) THEN 
    619619                  jfld = jfld + 1 
    620620                  dta_bdy(ib_bdy)%ssh => bf(jfld)%fnow(:,1,1) 
Note: See TracChangeset for help on using the changeset viewer.