Ignore:
Timestamp:
2017-09-01T15:12:42+02:00 (3 years ago)
Author:
dford
Message:

Mask logchl increments in the ITF region.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_asm_surf_bgc/NEMOGCM/NEMO/OPA_SRC/ASM/asmlogchlbal_medusa.F90

    r8440 r8485  
    2424   USE dom_oce,       ONLY: gdepw_n        ! domain information 
    2525   USE zdfmxl                              ! mixed layer depth 
     26   USE zdftmx,        ONLY: ln_tmx_itf, &  ! Indonesian Throughflow 
     27      &                     mask_itf       ! tidal mixing mask 
    2628   USE iom                                 ! i/o 
    2729   USE sms_medusa                          ! MEDUSA parameters 
     
    387389 
    388390      ENDIF 
     391       
     392      ! If performing extra tidal mixing in the Indonesian Throughflow, 
     393      ! increments have been found to make the carbon cycle unstable 
     394      ! Therefore, mask these out 
     395      IF ( ln_tmx_itf ) THEN 
     396         DO jn = 1, jptra 
     397            DO jk = 1, jpk 
     398               logchl_balinc(:,:,jk,jn) = logchl_balinc(:,:,jk,jn) * ( 1.0 - mask_itf(:,:) ) 
     399            END DO 
     400         END DO 
     401      ENDIF 
    389402 
    390403   END SUBROUTINE asm_logchl_bal_medusa 
Note: See TracChangeset for help on using the changeset viewer.