Changeset 8604


Ignore:
Timestamp:
2017-10-10T11:21:44+02:00 (3 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.