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 9021 – NEMO

Changeset 9021


Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r8600_closea_rewrite/NEMOGCM/NEMO/OPA_SRC/DOM/closea.F90

    r9017 r9021  
    292292               IF(lwp) WRITE(numout,*) 'closea runoff output: jcr, zcoef: ',jcr, zcoef 
    293293               WHERE( closea_mask_rnf(:,:) == jcr .and. closea_mask(:,:) == 0.0) 
    294                   emp(:,:) = emp(:,:) - zcoef 
    295                   qns(:,:) = qns(:,:) + zcoef1 * sst_m(:,:) 
     294                  emp(:,:) = emp(:,:) + zcoef 
     295                  qns(:,:) = qns(:,:) - zcoef1 * sst_m(:,:) 
    296296               ENDWHERE 
    297297            ENDIF 
     
    318318            zcoef1   = rcp * zcoef 
    319319            WHERE( closea_mask_empmr(:,:) == jce .and. closea_mask(:,:) == 0.0) 
    320                emp(:,:) = emp(:,:) - zcoef 
    321                qns(:,:) = qns(:,:) + zcoef1 * sst_m(:,:) 
     320               emp(:,:) = emp(:,:) + zcoef 
     321               qns(:,:) = qns(:,:) - zcoef1 * sst_m(:,:) 
    322322            ENDWHERE 
    323323            ! 
Note: See TracChangeset for help on using the changeset viewer.