Changeset 12186
- Timestamp:
- 2019-12-11T15:18:59+01:00 (4 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_AGRIF-01-05_merged/src/NST/agrif_oce_sponge.F90
r12123 r12186 163 163 zmsknorth(:) = 0._wp 164 164 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 166 170 #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 ) 171 175 #endif 172 176
Note: See TracChangeset
for help on using the changeset viewer.