Changeset 4008 for branches/2013/dev_r3987_METO1_MERCATOR6_OBC_BDY_merge

Timestamp:

2013-08-28T10:33:03+02:00 (11 years ago)

Author:

davestorkey

Message:

Uncomment important lines in bdylib.F90!

File:

• branches/2013/dev_r3987_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdylib.F90 (modified) (2 diffs)

branches/2013/dev_r3987_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdylib.F90

@@ -152 +152 @@
            &                    - (1.-zsign_ups) * zcy * ( phib(iijp1,ijjp1) - phib(ii   ,ij    ) ) ) / ( 1. + zcx ) 
          end if
-!!$         phia(ii,ij) = phia(ii,ij) + zwgt * ( phi_ext(jb) - phib(ii,ij) ) 
+         phia(ii,ij) = phia(ii,ij) + zwgt * ( phi_ext(jb) - phib(ii,ij) ) 
          phia(ii,ij) = phia(ii,ij) * pmask(ii,ij)
       END DO
@@ -255 +255 @@
         &      + (ijbm1jp1-ijbm1) * pmask_ydiv(iibm1          ,ijbm1+ij_offset,jk) ) 
             zdy_centred = 0.5 * ( zdy_left + zdy_right )
-!!$            zdy_centred = phib(iibm1jp1,ijbm1jp1,jk) - phib(iibm1jm1,ijbm1jm1,jk)
+            zdy_centred = phib(iibm1jp1,ijbm1jp1,jk) - phib(iibm1jm1,ijbm1jm1,jk)
             ! upstream differencing for tangential derivatives
             zsign_ups = sign( 1., zdt * zdy_centred )