Changeset 9614 for branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

Timestamp:

2018-05-21T11:29:38+02:00 (5 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/IOM/iom.F90 (modified) (1 diff)

branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

@@ -1402 +1402 @@
          SELECT CASE ( cdgrd )
          CASE('T')   
-            zmask(:,:,:)       = tmask_i_3d(:,:,:)
+            zmask(:,:,:) = tmask_i_3d(:,:,:)
          CASE('U')
-            zmask(2:jpim1,:,:) = tmask_i_3d(2:jpim1,:,:) + tmask_i_3d(3:jpi,:,:)   
-            CALL lbc_lnk( zmask, 'U', 1. )
+            zmask(:,:,:) = umask_i_3d(:,:,:) 
          CASE('V') 
-            zmask(:,2:jpjm1,:) = tmask_i_3d(:,2:jpjm1,:) + tmask_i_3d(:,3:jpj,:)   
-            CALL lbc_lnk( zmask, 'V', 1. )
+            zmask(:,:,:) = vmask_i_3d(:,:,:) 
          CASE('W')   
             zmask(:,:,2:jpk  ) = tmask_i_3d(:,:,1:jpkm1) + tmask_i_3d(:,:,2:jpk)