New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 6036 for branches – NEMO

Changeset 6036 for branches


Ignore:
Timestamp:
2015-12-11T16:04:27+01:00 (8 years ago)
Author:
timgraham
Message:

Fix for ticket #1617 - should have no impact on results

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/nemo_v3_6_STABLE/NEMOGCM/NEMO/OPA_SRC/DOM/domzgr.F90

    r5506 r6036  
    18701870             iim1 = MAX( ji-1, 1 ) 
    18711871             ijm1 = MAX( jj-1, 1 ) 
    1872              IF( (bathy(iip1,jj) + bathy(iim1,jj) + bathy(ji,ijp1) + bathy(ji,ijm1) +              & 
    1873         &         bathy(iip1,ijp1) + bathy(iim1,ijm1) + bathy(iip1,ijp1) + bathy(iim1,ijm1)) > 0._wp ) THEN 
    1874                zenv(ji,jj) = rn_sbot_min 
     1872             IF( ( + bathy(iim1,ijp1) + bathy(ji,ijp1) + bathy(iip1,ijp1)  & 
     1873                &  + bathy(iim1,jj  )                  + bathy(iip1,jj  )  & 
     1874                &  + bathy(iim1,ijm1) + bathy(ji,ijm1) + bathy(iip1,ijp1)  ) > 0._wp ) THEN 
     1875                zenv(ji,jj) = rn_sbot_min 
    18751876             ENDIF 
    18761877           ENDIF 
Note: See TracChangeset for help on using the changeset viewer.