Changeset 12186


Ignore:
Timestamp:
2019-12-11T15:18:59+01:00 (6 months ago)
Author:
jchanut
Message:

#2222, remove sponge masking

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_AGRIF-01-05_merged/src/NST/agrif_oce_sponge.F90

    r12123 r12186  
    163163         zmsknorth(:) = 0._wp 
    164164         zmsknorth(1:jpi) = MAXVAL(ztabramp(:,:), dim=2) 
    165  
     165         ! JC: SPONGE MASKING TO BE SORTED OUT: 
     166         zmskwest(:)  = 1._wp 
     167         zmskeast(:)  = 1._wp 
     168         zmsknorth(:) = 1._wp 
     169         zmsksouth(:) = 1._wp 
    166170#if defined key_mpp_mpi 
    167          CALL mpp_max( 'AGRIF_sponge', zmskwest(:) , jpjmax ) 
    168          CALL mpp_max( 'AGRIF_Sponge', zmskeast(:) , jpjmax ) 
    169          CALL mpp_max( 'AGRIF_Sponge', zmsksouth(:), jpimax ) 
    170          CALL mpp_max( 'AGRIF_Sponge', zmsknorth(:), jpimax ) 
     171!         CALL mpp_max( 'AGRIF_sponge', zmskwest(:) , jpjmax ) 
     172!         CALL mpp_max( 'AGRIF_Sponge', zmskeast(:) , jpjmax ) 
     173!         CALL mpp_max( 'AGRIF_Sponge', zmsksouth(:), jpimax ) 
     174!         CALL mpp_max( 'AGRIF_Sponge', zmsknorth(:), jpimax ) 
    171175#endif 
    172176 
Note: See TracChangeset for help on using the changeset viewer.