Changeset 5110


Ignore:
Timestamp:
2015-03-02T15:14:37+01:00 (6 years ago)
Author:
hliu
Message:

Fix a bug in Wetting/Drying? pressure filter in dynspg_ts.F90

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90

    r5014 r5110  
    388388                ELSE IF(ll_tmp2) THEN 
    389389                   ! no worries about sshn(ji,jj+1)-sshn(ji,jj) = 0, it won't happen ! here 
    390                   zcpy(ji,jj) = ABS((sshn(ji,jj+1) + bathy(ji,jj+1) - sshn(ji,jj) + bathy(ji,jj)) /& 
     390                  zcpy(ji,jj) = ABS((sshn(ji,jj+1) + bathy(ji,jj+1) - sshn(ji,jj) - bathy(ji,jj)) /& 
    391391                              &     (sshn(ji,jj+1) - sshn(ji,jj))) 
    392392                ELSE 
Note: See TracChangeset for help on using the changeset viewer.