Changeset 4812 for branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

Timestamp:

2014-10-09T19:31:07+02:00 (10 years ago)

Author:

mathiot

Message:

UKMO02 ISF: correction of some TOP/ and OFF/ files (compilation and SETTE issues) + correction of bdyvol + slope of iso. beneath ice shelf + top friction in dynzdf_imp + minor change in zdfddm

File:

• branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90 (modified) (1 diff)

branches/2014/dev_r4650_UKMO2_ice_shelves/NEMOGCM/NEMO/OPA_SRC/ZDF/zdfddm.F90

@@ -138 +138 @@
                ENDIF
          ! mask zmsk in order to have avt and avs masked
-               zmsks(:,:) = zmsks(:,:) * tmask(:,:,jk)
+               zmsks(ji,jj) = zmsks(ji,jj) * tmask(ji,jj,jk)