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 8604 for branches/UKMO – NEMO

Changeset 8604 for branches/UKMO


Ignore:
Timestamp:
2017-10-10T11:21:44+02:00 (6 years ago)
Author:
timgraham
Message:

Added key_old_bbl_non_conserve

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_GO6_package_bblkeyfix/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

    r8521 r8604  
    564564      DO jj = 1, jpjm1 
    565565         DO ji = 1, jpim1 
     566#if defined key_bbl_old_nonconserve 
     567             ! This key allows old (non conservative version) to be used for continuity of results 
     568             mgrhu(ji,jj) = INT(  SIGN( 1.e0, gdept_0(ji+1,jj,mbkt(ji+1,jj)) - gdept_0(ji,jj,mbkt(ji,jj)) )  ) 
     569             mgrhv(ji,jj) = INT(  SIGN( 1.e0, gdept_0(ji,jj+1,mbkt(ji,jj+1)) - gdept_0(ji,jj,mbkt(ji,jj)) )  ) 
     570#else 
    566571            IF( gdept_0(ji+1,jj,mbkt(ji+1,jj)) - gdept_0(ji,jj,mbkt(ji,jj)) /= 0._wp ) THEN 
    567572               mgrhu(ji,jj) = INT(  SIGN( 1.e0, & 
     
    573578               gdept_0(ji,jj+1,mbkt(ji,jj+1)) - gdept_0(ji,jj,mbkt(ji,jj)) )  ) 
    574579            ENDIF 
     580#endif 
    575581         END DO 
    576582      END DO 
Note: See TracChangeset for help on using the changeset viewer.