Changeset 15591 for NEMO/branches/2021

Timestamp:

2021-12-13T11:29:14+01:00 (2 years ago)

Author:

techene

Message:

SWG bug fix : outputs are now non-zero

File:

• NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/DOM/dommsk.F90 (modified) (2 diffs)

NEMO/branches/2021/dev_r14318_RK3_stage1/src/OCE/DOM/dommsk.F90

@@ -158 +158 @@
       END_3D
       !
+#if defined key_agrif
       ! In case of a coarsened grid, account her for possibly aditionnal  
       ! masked points; these have been read in the mesh file and stored in mbku, mbkv, mbkf
@@ -168 +169 @@
          IF ( MAXVAL(fmask(ji,jj,:))/=0._wp )  fmask(ji,jj,mbkf(ji,jj)+1:jpk) = 0._wp
       END_2D
+#endif
       CALL lbc_lnk( 'dommsk', umask, 'U', 1.0_wp, vmask, 'V', 1.0_wp, fmask, 'F', 1.0_wp )      ! Lateral boundary conditions