- Timestamp:
- 2015-11-29T20:28:41+01:00 (8 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2015/dev_r5151_UKMO_ISF/NEMOGCM/NEMO/OPA_SRC/LDF/ldfslp.F90
r5200 r5944 586 586 ! 587 587 jk = nmln(ji+ip,jj) + 1 588 IF( jk .GT.mbkt(ji+ip,jj) ) THEN !ML reaches bottom588 IF( jk > mbkt(ji+ip,jj) ) THEN !ML reaches bottom 589 589 zti_mlb(ji+ip,jj ,1-ip,kp) = 0.0_wp 590 590 ELSE … … 596 596 ! 597 597 jk = nmln(ji,jj+jp) + 1 598 IF( jk .GT.mbkt(ji,jj+jp) ) THEN !ML reaches bottom598 IF( jk > mbkt(ji,jj+jp) ) THEN !ML reaches bottom 599 599 ztj_mlb(ji ,jj+jp,1-jp,kp) = 0.0_wp 600 600 ELSE
Note: See TracChangeset
for help on using the changeset viewer.