Changeset 9608 for branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

Timestamp:

2018-05-18T11:52:45+02:00 (5 years ago)

Author:

frrh

Message:

Introduce and apply a 3D interior mask for T, U, V and W grid diagnostics.

File:

• branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

@@ -233 +233 @@
       tmask_i(   :   ,ijl:jpj) = 0._wp      ! last  rows (including mpp extra rows)
 
+      tmask_i_3d(:,:,:) = tmask(:,:,:)      ! Initialise 3D interior tmask with standard t mask
+      ! Now mask out any wrap columns
+      tmask_i_3d( 1 :iif,:,:) = 0._wp       ! first columns
+      tmask_i_3d(iil:jpi,:,:) = 0._wp       ! last  columns (including mpp extra columns)
+      ! Now mask out any extra rows
+      tmask_i_3d(:,1:ijf,:) = 0._wp         ! first rows
+      tmask_i_3d(:,ijl:jpj,:) = 0._wp       ! last  rows (including mpp extra rows)
+
+
       ! north fold mask
       ! ---------------
@@ -243 +252 @@
             DO ji = iif+1, iil-1
                tmask_i(ji,nlej-1) = tmask_i(ji,nlej-1) * tpol(mig(ji))
+               tmask_i_3d(ji,nlej-1,:) = tmask_i_3d(ji,nlej-1,:) * tpol(mig(ji))
             END DO
          ENDIF