Changeset 7681 for trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90
- Timestamp:
- 2017-02-14T18:56:01+01:00 (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/TOP_SRC/PISCES/P2Z/p2zopt.F90
r7646 r7681 123 123 DO ji = 1, jpi 124 124 IF( etot(ji,jj,jk) >= zpar100(ji,jj) ) neln(ji,jj) = jk + 1 125 ! ! nb. this is to ensure compatibility with126 ! ! nmld_trc definition in trd_mxl_trc_zint127 125 END DO 128 126 END DO
Note: See TracChangeset
for help on using the changeset viewer.