Ignore:
Timestamp:
2013-08-28T10:33:03+02:00 (8 years ago)
Author:
davestorkey
Message:

Uncomment important lines in bdylib.F90!

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_r3987_METO1_MERCATOR6_OBC_BDY_merge/NEMOGCM/NEMO/OPA_SRC/BDY/bdylib.F90

    r4007 r4008  
    152152           &                    - (1.-zsign_ups) * zcy * ( phib(iijp1,ijjp1) - phib(ii   ,ij    ) ) ) / ( 1. + zcx )  
    153153         end if 
    154 !!$         phia(ii,ij) = phia(ii,ij) + zwgt * ( phi_ext(jb) - phib(ii,ij) )  
     154         phia(ii,ij) = phia(ii,ij) + zwgt * ( phi_ext(jb) - phib(ii,ij) )  
    155155         phia(ii,ij) = phia(ii,ij) * pmask(ii,ij) 
    156156      END DO 
     
    255255        &      + (ijbm1jp1-ijbm1) * pmask_ydiv(iibm1          ,ijbm1+ij_offset,jk) )  
    256256            zdy_centred = 0.5 * ( zdy_left + zdy_right ) 
    257 !!$            zdy_centred = phib(iibm1jp1,ijbm1jp1,jk) - phib(iibm1jm1,ijbm1jm1,jk) 
     257            zdy_centred = phib(iibm1jp1,ijbm1jp1,jk) - phib(iibm1jm1,ijbm1jm1,jk) 
    258258            ! upstream differencing for tangential derivatives 
    259259            zsign_ups = sign( 1., zdt * zdy_centred ) 
Note: See TracChangeset for help on using the changeset viewer.