New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 12614 for NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/dommsk.F90 – NEMO

Ignore:
Timestamp:
2020-03-26T15:59:52+01:00 (4 years ago)
Author:
gm
Message:

first Shallow Water Eq. update

Location:
NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE
Files:
1 added
1 copied

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/dommsk.F90

    r12529 r12614  
    192192      ssumask(:,:) = MAXVAL( umask(:,:,:), DIM=3 ) 
    193193      ssvmask(:,:) = MAXVAL( vmask(:,:,:), DIM=3 ) 
    194  
     194!!an  
     195      ! ssfmask(:,:) = MAXVAL( fmask(:,:,:), DIM=3 ) 
     196      DO_2D_10_10 
     197         ssfmask(ji,jj) = MAX(  tmask(ji,jj+1,1), tmask(ji+1,jj+1,1),  &  
     198            &                   tmask(ji,jj  ,1), tmask(ji+1,jj  ,1)   ) 
     199      END_2D 
     200      CALL lbc_lnk( 'dommsk', ssfmask, 'F', 1._wp )    
     201 
     202!!an 
    195203 
    196204      ! Interior domain mask  (used for global sum) 
Note: See TracChangeset for help on using the changeset viewer.