Changeset 8615


Ignore:
Timestamp:
2017-10-11T17:13:12+02:00 (3 years ago)
Author:
frrh
Message:

Commit Tim Graham's branches/UKMO/dev_r5518_GO6_package_bblkeyfix.

Met Office GMED ticket 353 refers.
See also supplementary information in GMED ticket 346.

This is a supplemetary change to the changes made at revision 8521 under
GMED ticket 346. It introduces the CPP key key_bbl_old_nonconserve
which allows code in trabbl.F90 to be reverted to the old
non-conserving version for reasons of backwards regression.

File:
1 edited

Legend:

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

    r8521 r8615  
    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.