Changeset 9021

Timestamp:

2017-12-13T17:13:00+01:00 (7 years ago)

Author:

davestorkey

Message:

UKMO/dev_r8600_closea_rewrite branch: bug fix for signs of additional fluxes.

File:

• branches/UKMO/dev_r8600_closea_rewrite/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90 (modified) (2 diffs)

branches/UKMO/dev_r8600_closea_rewrite/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

@@ -292 +292 @@
                IF(lwp) WRITE(numout,*) 'closea runoff output: jcr, zcoef: ',jcr, zcoef
                WHERE( closea_mask_rnf(:,:) == jcr .and. closea_mask(:,:) == 0.0)
-                  emp(:,:) = emp(:,:) - zcoef
-                  qns(:,:) = qns(:,:) + zcoef1 * sst_m(:,:)
+                  emp(:,:) = emp(:,:) + zcoef
+                  qns(:,:) = qns(:,:) - zcoef1 * sst_m(:,:)
                ENDWHERE
             ENDIF
@@ -318 +318 @@
             zcoef1   = rcp * zcoef
             WHERE( closea_mask_empmr(:,:) == jce .and. closea_mask(:,:) == 0.0)
-               emp(:,:) = emp(:,:) - zcoef
-               qns(:,:) = qns(:,:) + zcoef1 * sst_m(:,:)
+               emp(:,:) = emp(:,:) + zcoef
+               qns(:,:) = qns(:,:) - zcoef1 * sst_m(:,:)
             ENDWHERE
             !