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 10026 for branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90 – NEMO

Context Navigation

← Previous Change
Next Change →

Changeset 10026 for branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

Timestamp:

2018-08-02T16:11:22+02:00 (6 years ago)

Author:

mathiot

Message:

Compute isf heat content flx using interface S in of far field S + add isfmask to simplify isf masking

File:

: 1 edited

branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/UKMO/dev_isf_flx_UKESM_r9321/NEMOGCM/NEMO/OPA_SRC/DOM/dommsk.F90

-                      r8280
+                      r10026
       ENDIF
 #endif
+      ! in case of iceshelf definition of iceshelf surface mask (1 under
+      ! iceshelf and 0 elsewhere
+      ssisfmask = (1._wp - tmask(:,:,1)) * ssmask(:,:)
 !!gm end

Note: See TracChangeset for help on using the changeset viewer.

Download in other formats: