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 7119 for branches – NEMO

Context Navigation

← Previous Change
Next Change →

Changeset 7119 for branches

Timestamp:

2016-10-26T18:01:57+02:00 (8 years ago)

Author:

jenniewaters

Message:

Bug fix for land-suppression. See https://forge.ipsl.jussieu.fr/nemo/ticket/1704 for full details.

File:

: 1 edited

branches/UKMO/dev_r5518_landsuppression_fix/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90 (modified) (1 diff)

Legend:

: Unmodified
: Added
: Removed

branches/UKMO/dev_r5518_landsuppression_fix/NEMOGCM/NEMO/OPA_SRC/LBC/mppini_2.h90

-                      r5615
+                      r7119
          isurf = 0
          DO jj = 1+jprecj, ilj-jprecj
             DO  ji = 1+jpreci, ili-jpreci
+         DO jj = 1, ilj
+            DO  ji = 1, ili
                IF( imask(ji+iimppt(ii,ij)-1, jj+ijmppt(ii,ij)-1) == 1) isurf = isurf+1
             END DO

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

Download in other formats: