- Timestamp:
- 2017-12-15T17:09:41+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r8600_closea_rewrite/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90
r9078 r9080 323 323 zcoef = zfwfr(jcr) / surfr(jcr) 324 324 zcoef1 = rcp * zcoef 325 IF(lwp) WRITE(numout,*) 'NEGATIVE FLUX zfwfr(jcr), zcoef : ',zfwfr(jcr), zcoef326 325 WHERE( closea_mask_rnf(:,:) == jcr .and. closea_mask(:,:) == 0.0) 327 326 emp(:,:) = emp(:,:) + zcoef 328 327 qns(:,:) = qns(:,:) - zcoef1 * sst_m(:,:) 329 328 ENDWHERE 330 ELSE331 IF(lwp) WRITE(numout,*) 'POSITIVE FLUX zfwfr(jcr) : ',zfwfr(jcr)332 329 ENDIF 333 330 !
Note: See TracChangeset
for help on using the changeset viewer.