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

Timestamp:

2018-05-21T11:29:38+02:00 (6 years ago)

Author:

frrh

Message:

Create 3D U and V interior masks to mask out wrap columns
and 1st and last rows. Apply to appropriate grids
at dfinition phase.

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

@@ -256 +256 @@
          ENDIF
       ENDIF
+
+
       IF( jperio == 5 .OR. jperio == 6 ) THEN      ! F-point pivot
          tpol(     1    :jpiglo) = 0._wp
@@ -292 +294 @@
       CALL lbc_lnk( vmask_i, 'V', 1._wp )
       CALL lbc_lnk( fmask_i, 'F', 1._wp )
+
+      ! Set up interior 3d U mask
+      umask_i_3d(:,:,:) = umask(:,:,:) 
+      ! Now mask out any wrap columns
+      umask_i_3d( 1 :iif,:,:) = 0._wp       ! first columns
+      umask_i_3d(iil:jpi,:,:) = 0._wp       ! last  columns (including mpp extra columns)
+      ! Now mask out any extra rows
+      umask_i_3d(:,1:ijf,:) = 0._wp         ! first rows
+      umask_i_3d(:,ijl:jpj,:) = 0._wp       ! last  rows (including mpp extra rows)
+
+      ! Set up interior 3d V mask
+      vmask_i_3d(:,:,:) = vmask(:,:,:) 
+      ! Now mask out any wrap columns
+      vmask_i_3d( 1 :iif,:,:) = 0._wp       ! first columns
+      vmask_i_3d(iil:jpi,:,:) = 0._wp       ! last  columns (including mpp extra columns)
+      ! Now mask out any extra rows
+      vmask_i_3d(:,1:ijf,:) = 0._wp         ! first rows
+      vmask_i_3d(:,ijl:jpj,:) = 0._wp       ! last  rows (including mpp extra rows)
+
 
       ! 3. Ocean/land mask at wu-, wv- and w points