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

Timestamp:

2021-08-13T17:14:10+02:00 (3 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.4_momentum_trends: Bug fixes so that it works with explicit friction (ln_drgimp=F).

File:

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

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_iceoc2d, kt )
+            IF( ln_isfcav.OR.ln_drgice_imp ) THEN
+               ! Save this part of the ice-ocean drag as the first installment of top friction
+               CALL trd_dyn( ztautrdu, ztautrdv, jpdyn_iceoc2d, kt )
+            ELSE
+               ! In this case this is the whole top friction trend
+               CALL trd_dyn( ztautrdu, ztautrdv, jpdyn_tfr, kt )
+            ENDIF
          ENDIF
          ! initialise fields for wind stress trends