Changeset 15176 for NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/ICE/iceupdate.F90

Timestamp:

2021-08-09T16:08:00+02:00 (3 years ago)

Author:

davestorkey

Message:

UKMO/NEMO_4.0.4_momentum_trends:

1. Output complete budget of 2D trends.
2. Separate out ice-ocean stress from wind stress (for 2D budget).
3. Allow thickness weighting of 2D trends.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/ICE/iceupdate.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/ICE/iceupdate.F90

@@ -26 +26 @@
    USE icectl         ! sea-ice: control prints
    USE zdfdrg  , ONLY : ln_drgice_imp
+   USE trd_oce , ONLY : l_trddyn         ! dynamics trends diagnostics
    !
    USE in_out_manager ! I/O manager
@@ -379 +380 @@
             utau(ji,jj) = ( 1._wp - zat_u ) * utau_oce(ji,jj) + zat_u * zutau_ice
             vtau(ji,jj) = ( 1._wp - zat_v ) * vtau_oce(ji,jj) + zat_v * zvtau_ice
+            !
+            IF( l_trddyn ) THEN
+               uiceoc(ji,jj) = zat_u * zutau_ice
+               viceoc(ji,jj) = zat_v * zvtau_ice
+            ENDIF
+            !
          END DO
       END DO