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 5944 for branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90 – NEMO

Ignore:
Timestamp:
2015-11-29T20:28:41+01:00 (8 years ago)
Author:
mathiot
Message:

ISF: change related to reviewers comments

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90

    r5200 r5944  
    586586                  ! 
    587587                  jk = nmln(ji+ip,jj) + 1 
    588                   IF( jk .GT. mbkt(ji+ip,jj) ) THEN  !ML reaches bottom 
     588                  IF( jk > mbkt(ji+ip,jj) ) THEN  !ML reaches bottom 
    589589                    zti_mlb(ji+ip,jj   ,1-ip,kp) = 0.0_wp 
    590590                  ELSE 
     
    596596                  ! 
    597597                  jk = nmln(ji,jj+jp) + 1 
    598                   IF( jk .GT. mbkt(ji,jj+jp) ) THEN  !ML reaches bottom 
     598                  IF( jk > mbkt(ji,jj+jp) ) THEN  !ML reaches bottom 
    599599                    ztj_mlb(ji   ,jj+jp,1-jp,kp) = 0.0_wp 
    600600                  ELSE 
Note: See TracChangeset for help on using the changeset viewer.