Changeset 4360


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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/2012/dev_v3_4_STABLE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/p4zopt.F90

    r3294 r4360  
    170170         DO jj = 1, jpj 
    171171           DO ji = 1, jpi 
    172               IF( etot(ji,jj,jk) >= 0.0043 * qsr(ji,jj) )  THEN 
     172              IF( etot(ji,jj,jk) * tmask(ji,jj,jk) >= 0.0043 * qsr(ji,jj) )  THEN 
    173173                 neln(ji,jj) = jk+1                    ! Euphotic level : 1rst T-level strictly below Euphotic layer 
    174174                 !                                     ! nb: ensure the compatibility with nmld_trc definition in trd_mld_trc_zint 
Note: See TracChangeset for help on using the changeset viewer.