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

Changeset 14724


Ignore:
Timestamp:
2021-04-16T17:49:22+02:00 (3 years ago)
Author:
davestorkey
Message:

2021/ENHANCE-01_davestorkey_fix_3D_momentum_trends : bug fix

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/2021/ENHANCE-01_davestorkey_fix_3D_momentum_trends/src/OCE/DYN/dynzdf.F90

    r14716 r14724  
    143143            ztrdu(:,:,:) = ( puu(:,:,:,Kaa) - ztrdu(:,:,:) ) / rDt  
    144144            ztrdv(:,:,:) = ( pvv(:,:,:,Kaa) - ztrdv(:,:,:) ) / rDt  
    145             CALL trd_dyn( ztrdu, ztrdv, jpdyn_bfr, kt, Kmm ) 
     145            CALL trd_dyn( ztrdu, ztrdv, jpdyn_bfr, kt, Kmm, Kaa ) 
    146146         ENDIF 
    147147         IF( ln_isfcav.OR.ln_drgice_imp ) THEN    ! Ocean cavities (ISF) 
Note: See TracChangeset for help on using the changeset viewer.