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 13377 – NEMO

Changeset 13377


Ignore:
Timestamp:
2020-08-05T17:15:35+02:00 (4 years ago)
Author:
mathiot
Message:

ticket #2510: fix out of bound in dtadyn.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OFF/dtadyn.F90

    r13295 r13377  
    296296      sf_dyn(jf_uwd)%cltype = 'U'   ;   sf_dyn(jf_uwd)%zsgn = -1._wp   
    297297      sf_dyn(jf_vwd)%cltype = 'V'   ;   sf_dyn(jf_vwd)%zsgn = -1._wp   
    298       sf_dyn(jf_ubl)%cltype = 'U'   ;   sf_dyn(jf_ubl)%zsgn =  1._wp   
    299       sf_dyn(jf_vbl)%cltype = 'V'   ;   sf_dyn(jf_vbl)%zsgn =  1._wp   
     298      ! 
     299      IF( ln_trabbl ) THEN 
     300         sf_dyn(jf_ubl)%cltype = 'U'   ;   sf_dyn(jf_ubl)%zsgn =  1._wp   
     301         sf_dyn(jf_vbl)%cltype = 'V'   ;   sf_dyn(jf_vbl)%zsgn =  1._wp   
     302      END IF 
    300303      ! 
    301304      ! Open file for each variable to get his number of dimension 
Note: See TracChangeset for help on using the changeset viewer.