Changeset 5110 for branches/2015/dev_r4826_NOC_WAD
- Timestamp:
- 2015-03-02T15:14:37+01:00 (9 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r4826_NOC_WAD/NEMOGCM/NEMO/OPA_SRC/DYN/dynspg_ts.F90
r5014 r5110 388 388 ELSE IF(ll_tmp2) THEN 389 389 ! 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)) /& 391 391 & (sshn(ji,jj+1) - sshn(ji,jj))) 392 392 ELSE
Note: See TracChangeset
for help on using the changeset viewer.