Ignore:
Timestamp:
2018-05-21T11:29:38+02:00 (2 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:
1 edited

Legend:

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

    r9608 r9614  
    254254   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   bathy                              !: ocean depth (meters) 
    255255   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   tmask_i, umask_i, vmask_i, fmask_i !: interior domain T-point mask 
    256    REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) ::   tmask_i_3d       !: 3D T-point mask of wrap and redundant N-fold points only. 
     256   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: tmask_i_3d       !: 3D T-point mask of wrap and redundant N-fold points only. 
     257   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: umask_i_3d       !: 3D U-point mask of wrap and redundant N-fold points only. 
     258   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:,:) :: vmask_i_3d       !: 3D V-point mask of wrap and redundant N-fold points only. 
    257259   REAL(wp), PUBLIC, ALLOCATABLE, SAVE, DIMENSION(:,:) ::   bmask                              !: land/ocean mask of barotropic stream function 
    258260 
     
    408410      ALLOCATE( tmask(jpi,jpj,jpk) , umask(jpi,jpj,jpk),     &  
    409411         &      vmask(jpi,jpj,jpk) , fmask(jpi,jpj,jpk),     & 
    410                 tmask_i_3d(jpi,jpj,jpk),       STAT=ierr(11) ) 
     412                tmask_i_3d(jpi,jpj,jpk),       & 
     413                umask_i_3d(jpi,jpj,jpk),       & 
     414                vmask_i_3d(jpi,jpj,jpk),       & 
     415                STAT=ierr(11) ) 
    411416 
    412417      ALLOCATE( wmask(jpi,jpj,jpk) , wumask(jpi,jpj,jpk), wvmask(jpi,jpj,jpk) , STAT=ierr(12) ) 
Note: See TracChangeset for help on using the changeset viewer.