Changeset 12366


Ignore:
Timestamp:
2020-02-11T12:17:24+01:00 (8 weeks ago)
Author:
jchanut
Message:

#2317, revert to the correct sign for asselin term on e3t and runoffs

Location:
NEMO/trunk/src/OCE
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/trunk/src/OCE/DYN/dynnxt.F90

    r12279 r12366  
    232232            IF ( ln_rnf ) THEN 
    233233               DO jk = 1, jpkm1 
    234                   e3t_b(:,:,jk) = e3t_b(:,:,jk) - zcoef * ( rnf_b(:,:) - rnf(:,:) ) * tmask(:,:,jk) &  
     234                  e3t_b(:,:,jk) = e3t_b(:,:,jk) + zcoef * ( rnf_b(:,:) - rnf(:,:) ) * tmask(:,:,jk) &  
    235235                                &                       * e3t_n(:,:,jk) /  ( ht_n(:,:) + 1._wp - ssmask(:,:) ) 
    236236               END DO 
  • NEMO/trunk/src/OCE/TRA/tranxt.F90

    r12279 r12366  
    314314                  zscale = zfact2 * e3t_n(ji,jj,jk) / ( ht_n(ji,jj) + 1._wp - ssmask(ji,jj) ) 
    315315                  ze3t_f = ze3t_f - zscale * ( emp_b(ji,jj) - emp(ji,jj) ) 
    316                   IF ( ll_rnf ) ze3t_f = ze3t_f - zscale * (    rnf_b(ji,jj) -    rnf(ji,jj) ) 
     316                  IF ( ll_rnf ) ze3t_f = ze3t_f + zscale * (    rnf_b(ji,jj) -    rnf(ji,jj) ) 
    317317                  IF ( ll_isf ) ze3t_f = ze3t_f - zscale * ( fwfisf_b(ji,jj) - fwfisf(ji,jj) ) 
    318318 
Note: See TracChangeset for help on using the changeset viewer.