Changeset 9080 for branches/UKMO/dev_r8600_closea_rewrite/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

Timestamp:

2017-12-15T17:09:41+01:00 (7 years ago)

Author:

davestorkey

Message:

UKMO/dev_r8600_closea_rewrite branch:

1. Correct eORCA025 lakes definitions in make_closea_masks.py.
2. Remove some debugging write-outs.

File:

• branches/UKMO/dev_r8600_closea_rewrite/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90 (modified) (1 diff)

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

@@ -323 +323 @@
                   zcoef    = zfwfr(jcr) / surfr(jcr)
                   zcoef1   = rcp * zcoef
-                  IF(lwp) WRITE(numout,*) 'NEGATIVE FLUX zfwfr(jcr), zcoef : ',zfwfr(jcr), zcoef
                   WHERE( closea_mask_rnf(:,:) == jcr .and. closea_mask(:,:) == 0.0)
                      emp(:,:) = emp(:,:) + zcoef
                      qns(:,:) = qns(:,:) - zcoef1 * sst_m(:,:)
                   ENDWHERE
-               ELSE
-                  IF(lwp) WRITE(numout,*) 'POSITIVE FLUX zfwfr(jcr) : ',zfwfr(jcr)
                ENDIF
                !