Changeset 15176 for NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/OCE/SBC/sbcmod.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/OCE/SBC/sbcmod.F90 (modified) (3 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_momentum_trends/src/OCE/SBC/sbcmod.F90

@@ -52 +52 @@
    USE usrdef_sbc     ! user defined: surface boundary condition
    USE closea         ! closed sea
+   USE trd_oce, ONLY: l_trddyn ! flag for dynamics trends diagnostics
    !
    USE prtctl         ! Print control                    (prt_ctl routine)
@@ -418 +419 @@
             risf_tsc_b(:,:,:) = risf_tsc(:,:,:)              
          ENDIF
-        !
+         IF( l_trddyn .and. nn_ice == 2 ) THEN
+            uiceoc_b(:,:) = uiceoc(:,:)      
+            viceoc_b(:,:) = viceoc(:,:)      
+         ENDIF        
+         !
       ENDIF
       !                                            ! ---------------------------------------- !
@@ -532 +537 @@
             sfx_b (:,:) = sfx (:,:)
          ENDIF
+         !
+         IF( l_trddyn .and. nn_ice == 2 ) THEN
+            uiceoc_b(:,:) = uiceoc(:,:)      
+            viceoc_b(:,:) = viceoc(:,:)      
+         ENDIF        
+         !
       ENDIF
       !                                                ! ---------------------------------------- !