Changeset 8485 for branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc/NEMOGCM/NEMO/OPA_SRC/ASM

Timestamp:

2017-09-01T15:12:42+02:00 (7 years ago)

Author:

dford

Message:

Mask logchl increments in the ITF region.

File:

• branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc/NEMOGCM/NEMO/OPA_SRC/ASM/asmlogchlbal_medusa.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc/NEMOGCM/NEMO/OPA_SRC/ASM/asmlogchlbal_medusa.F90

@@ -24 +24 @@
    USE dom_oce,       ONLY: gdepw_n        ! domain information
    USE zdfmxl                              ! mixed layer depth
+   USE zdftmx,        ONLY: ln_tmx_itf, &  ! Indonesian Throughflow
+      &                     mask_itf       ! tidal mixing mask
    USE iom                                 ! i/o
    USE sms_medusa                          ! MEDUSA parameters
@@ -387 +389 @@
 
       ENDIF
+      
+      ! If performing extra tidal mixing in the Indonesian Throughflow,
+      ! increments have been found to make the carbon cycle unstable
+      ! Therefore, mask these out
+      IF ( ln_tmx_itf ) THEN
+         DO jn = 1, jptra
+            DO jk = 1, jpk
+               logchl_balinc(:,:,jk,jn) = logchl_balinc(:,:,jk,jn) * ( 1.0 - mask_itf(:,:) )
+            END DO
+         END DO
+      ENDIF
 
    END SUBROUTINE asm_logchl_bal_medusa