- Timestamp:
- 2014-01-22T10:20:58+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zopt.F90
r3294 r4360 170 170 DO jj = 1, jpj 171 171 DO ji = 1, jpi 172 IF( etot(ji,jj,jk) >= 0.0043 * qsr(ji,jj) ) THEN172 IF( etot(ji,jj,jk) * tmask(ji,jj,jk) >= 0.0043 * qsr(ji,jj) ) THEN 173 173 neln(ji,jj) = jk+1 ! Euphotic level : 1rst T-level strictly below Euphotic layer 174 174 ! ! nb: ensure the compatibility with nmld_trc definition in trd_mld_trc_zint
Note: See TracChangeset
for help on using the changeset viewer.