Changeset 8604

Timestamp:

2017-10-10T11:21:44+02:00 (7 years ago)

Author:

timgraham

Message:

Added key_old_bbl_non_conserve

File:

• branches/UKMO/dev_r5518_GO6_package_bblkeyfix/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90 (modified) (2 diffs)

branches/UKMO/dev_r5518_GO6_package_bblkeyfix/NEMOGCM/NEMO/OPA_SRC/TRA/trabbl.F90

@@ -564 +564 @@
       DO jj = 1, jpjm1
          DO ji = 1, jpim1
+#if defined key_bbl_old_nonconserve
+             ! This key allows old (non conservative version) to be used for continuity of results
+             mgrhu(ji,jj) = INT(  SIGN( 1.e0, gdept_0(ji+1,jj,mbkt(ji+1,jj)) - gdept_0(ji,jj,mbkt(ji,jj)) )  )
+             mgrhv(ji,jj) = INT(  SIGN( 1.e0, gdept_0(ji,jj+1,mbkt(ji,jj+1)) - gdept_0(ji,jj,mbkt(ji,jj)) )  )
+#else
             IF( gdept_0(ji+1,jj,mbkt(ji+1,jj)) - gdept_0(ji,jj,mbkt(ji,jj)) /= 0._wp ) THEN
                mgrhu(ji,jj) = INT(  SIGN( 1.e0, &
@@ -573 +578 @@
                gdept_0(ji,jj+1,mbkt(ji,jj+1)) - gdept_0(ji,jj,mbkt(ji,jj)) )  )
             ENDIF
+#endif
          END DO
       END DO