Changeset 15179 for NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/OCE/DYN/dynspg_ts.F90

Timestamp:

2021-08-11T13:07:00+02:00 (3 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.4_momentum_trends:

1. Bug fix for previous commit (correct wind stress and top friction trends for depth-mean flow).
2. Surface trends: Remove ice-ocean stress from wind stress trend and add to top friction trend.
3. Some tidying of trd_oce.F90 and trddyn.F90.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/OCE/DYN/dynspg_ts.F90 (modified) (2 diffs)

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

@@ -392 +392 @@
                END DO
             ENDIF
-            CALL trd_dyn( ztautrdu, ztautrdv, jpdyn_tau2d_ice, kt )
+            CALL trd_dyn( ztautrdu, ztautrdv, jpdyn_iceoc2d, kt )
          ENDIF
          ! initialise fields for wind stress trends
@@ -924 +924 @@
             ztottrdv(:,:) = r1_hv_n(:,:) * ( va_b(:,:) - vb_b(:,:) * hv_b(:,:) ) * r1_2dt_b
             CALL trd_dyn( ztottrdu, ztottrdv, jpdyn_tot, kt )
-!!$            ! output total thickness for external thickness weighting
-!!$            CALL iom_put( 'hu', hu_n ) 
-!!$            CALL iom_put( 'hv', hv_n ) 
          ENDIF
       ENDIF