Changeset 4361
- Timestamp:
- 2014-01-22T10:22:32+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90
r4306 r4361 203 203 DO jj = 1, jpj 204 204 DO ji = 1, jpi 205 IF( etot(ji,jj,jk) >= 0.0043 * qsr(ji,jj) ) THEN205 IF( etot(ji,jj,jk) * tmask(ji,jj,jk) >= 0.0043 * qsr(ji,jj) ) THEN 206 206 neln(ji,jj) = jk+1 ! Euphotic level : 1rst T-level strictly below Euphotic layer 207 207 ! ! nb: ensure the compatibility with nmld_trc definition in trd_mld_trc_zint
Note: See TracChangeset
for help on using the changeset viewer.