Ignore:
Timestamp:
2018-05-18T11:52:45+02:00 (2 years ago)
Author:
frrh
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_diag_bitcomp/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

    r8280 r9608  
    233233      tmask_i(   :   ,ijl:jpj) = 0._wp      ! last  rows (including mpp extra rows) 
    234234 
     235      tmask_i_3d(:,:,:) = tmask(:,:,:)      ! Initialise 3D interior tmask with standard t mask 
     236      ! Now mask out any wrap columns 
     237      tmask_i_3d( 1 :iif,:,:) = 0._wp       ! first columns 
     238      tmask_i_3d(iil:jpi,:,:) = 0._wp       ! last  columns (including mpp extra columns) 
     239      ! Now mask out any extra rows 
     240      tmask_i_3d(:,1:ijf,:) = 0._wp         ! first rows 
     241      tmask_i_3d(:,ijl:jpj,:) = 0._wp       ! last  rows (including mpp extra rows) 
     242 
     243 
    235244      ! north fold mask 
    236245      ! --------------- 
     
    243252            DO ji = iif+1, iil-1 
    244253               tmask_i(ji,nlej-1) = tmask_i(ji,nlej-1) * tpol(mig(ji)) 
     254               tmask_i_3d(ji,nlej-1,:) = tmask_i_3d(ji,nlej-1,:) * tpol(mig(ji)) 
    245255            END DO 
    246256         ENDIF 
Note: See TracChangeset for help on using the changeset viewer.