Changeset 10647


Ignore:
Timestamp:
2019-02-07T15:38:10+01:00 (14 months ago)
Author:
smueller
Message:

Merge of changeset [10646] into the trunk; see ticket #2236

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/BDY/bdydta.F90

    r10529 r10647  
    371371      END DO  ! jbdy 
    372372 
     373      IF ( ln_apr_obc ) THEN 
     374         DO jbdy = 1, nb_bdy 
     375            IF (cn_tra(jbdy) /= 'runoff')THEN 
     376               igrd = 1                      ! meridional velocity 
     377               DO ib = 1, idx_bdy(jbdy)%nblenrim(igrd) 
     378                  ii   = idx_bdy(jbdy)%nbi(ib,igrd) 
     379                  ij   = idx_bdy(jbdy)%nbj(ib,igrd) 
     380                  dta_bdy(jbdy)%ssh(ib) = dta_bdy(jbdy)%ssh(ib) + ssh_ib(ii,ij) 
     381               END DO 
     382            ENDIF 
     383         END DO 
     384      ENDIF 
     385 
    373386      IF ( ln_tide ) THEN 
    374387         IF (ln_dynspg_ts) THEN      ! Fill temporary arrays with slow-varying bdy data                            
     
    389402      ENDIF 
    390403 
    391       IF ( ln_apr_obc ) THEN 
    392          DO jbdy = 1, nb_bdy 
    393             IF (cn_tra(jbdy) /= 'runoff')THEN 
    394                igrd = 1                      ! meridional velocity 
    395                DO ib = 1, idx_bdy(jbdy)%nblenrim(igrd) 
    396                   ii   = idx_bdy(jbdy)%nbi(ib,igrd) 
    397                   ij   = idx_bdy(jbdy)%nbj(ib,igrd) 
    398                   dta_bdy(jbdy)%ssh(ib) = dta_bdy(jbdy)%ssh(ib) + ssh_ib(ii,ij) 
    399                END DO 
    400             ENDIF 
    401          END DO 
    402       ENDIF 
    403404      ! 
    404405      IF( ln_timing )   CALL timing_stop('bdy_dta') 
Note: See TracChangeset for help on using the changeset viewer.