New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 8523 – NEMO

Changeset 8523


Ignore:
Timestamp:
2017-09-15T13:56:16+02:00 (7 years ago)
Author:
cbricaud
Message:

bugfix in nemo_v3_6_STABLE for ticket #1922

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/BDY/bdydta.F90

    r7859 r8523  
    3636   USE limvar          ! redistribute ice input into categories 
    3737#endif 
     38   USE sbc_oce 
    3839   USE sbcapr 
    3940 
     
    395396      ! end jchanut tschanges 
    396397 
    397       IF ( ln_apr_obc ) THEN 
    398          DO ib_bdy = 1, nb_bdy 
    399             IF (cn_tra(ib_bdy) /= 'runoff')THEN 
    400                igrd = 1                      ! meridional velocity 
    401                DO ib = 1, idx_bdy(ib_bdy)%nblenrim(igrd) 
    402                   ii   = idx_bdy(ib_bdy)%nbi(ib,igrd) 
    403                   ij   = idx_bdy(ib_bdy)%nbj(ib,igrd) 
    404                   dta_bdy(ib_bdy)%ssh(ib) = dta_bdy(ib_bdy)%ssh(ib) + ssh_ib(ii,ij) 
    405                ENDDO 
    406             ENDIF 
    407          ENDDO 
     398      IF( ln_apr_dyn )THEN 
     399         IF( ln_apr_obc ) THEN 
     400            DO ib_bdy = 1, nb_bdy 
     401               IF (cn_tra(ib_bdy) /= 'runoff')THEN 
     402                  igrd = 1                      ! meridional velocity 
     403                  DO ib = 1, idx_bdy(ib_bdy)%nblenrim(igrd) 
     404                     ii   = idx_bdy(ib_bdy)%nbi(ib,igrd) 
     405                     ij   = idx_bdy(ib_bdy)%nbj(ib,igrd) 
     406                     dta_bdy(ib_bdy)%ssh(ib) = dta_bdy(ib_bdy)%ssh(ib) + ssh_ib(ii,ij) 
     407                  ENDDO 
     408               ENDIF 
     409            ENDDO 
     410         ENDIF 
    408411      ENDIF 
    409412 
Note: See TracChangeset for help on using the changeset viewer.