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 15168 for NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/OCE/DYN/dynnxt.F90 – NEMO

Ignore:
Timestamp:
2021-08-03T16:15:46+02:00 (3 years ago)
Author:
davestorkey
Message:

UKMO/NEMO_4.0.4_momentum_trends: Introduce top friction trends (ice shelf cavities
and implicit ice-ocean drag) and reorganise bottom friction trend diagnostic.
In this version there are tfr2d, bfr2d diagnostics which are the accelerations of
the barotropic flow due to top and bottom friction, and tfr, bfr diagnostics which
are the acceleration of the baroclinic flow due to top and bottom friction (implicit
or explicit).

File:
1 edited

Legend:

Unmodified
Added
Removed

  • NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/OCE/DYN/dynnxt.F90

    r14075 r15168  
    164164            zua(:,:,:) = ( ua(:,:,:) - ub(:,:,:) ) * z1_2dt 
    165165            zva(:,:,:) = ( va(:,:,:) - vb(:,:,:) ) * z1_2dt 
    166             CALL iom_put( "utrd_tot", zua )        ! total momentum trends, except the asselin time filter 
    167             CALL iom_put( "vtrd_tot", zva ) 
     166            CALL trd_dyn( zua, zva, jpdyn_tot, kt )  ! total momentum trends, except the asselin time filter 
     167!!$            CALL iom_put( "utrd_tot", zua )        ! total momentum trends, except the asselin time filter 
     168!!$            CALL iom_put( "vtrd_tot", zva ) 
    168169         ENDIF 
    169170         ! 
Note: See TracChangeset for help on using the changeset viewer.