Changeset 12667 for NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/diawri.F90

Timestamp:

2020-04-03T16:22:29+02:00 (4 years ago)

Author:

gm

Message:

Shallow Water Eq. update

File:

• NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/diawri.F90 (modified) (1 diff)

NEMO/branches/2020/dev_r12527_Gurvan_ShallowWater/src/SWE/diawri.F90

@@ -180 +180 @@
               &                     + e3t(ji,jj  ,1,Kmm) * e1e2t(ji,jj  ) + e3t(ji+1,jj  ,1,Kmm) * e1e2t(ji+1,jj  )  ) * r1_e1e2f(ji,jj)
          END_2D
+         z2d(:,:) = z2d(:,:) * ssfmask(:,:)
          CALL lbc_lnk( 'diawri', z2d, 'F', 1._wp )
          CALL iom_put( "hf", z2d )