Changeset 4361


Ignore:
Timestamp:
2014-01-22T10:22:32+01:00 (7 years ago)
Author:
cetlod
Message:

v3.6alpha:bugfix to properly calculate the euphotic layer in depth in PISCES, see ticket #1199

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2013/dev_MERGE_2013/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zopt.F90

    r4306 r4361  
    203203         DO jj = 1, jpj 
    204204           DO ji = 1, jpi 
    205               IF( etot(ji,jj,jk) >= 0.0043 * qsr(ji,jj) )  THEN 
     205              IF( etot(ji,jj,jk) * tmask(ji,jj,jk) >= 0.0043 * qsr(ji,jj) )  THEN 
    206206                 neln(ji,jj) = jk+1                    ! Euphotic level : 1rst T-level strictly below Euphotic layer 
    207207                 !                                     ! nb: ensure the compatibility with nmld_trc definition in trd_mld_trc_zint 
Note: See TracChangeset for help on using the changeset viewer.