New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 5288 for branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zsink.F90 – NEMO

Ignore:
Timestamp:
2015-05-22T18:22:18+02:00 (9 years ago)
Author:
aumont
Message:

various bug fixes and updates of PISCES quota

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/CNRS/dev_r4826_PISCES_QUOTA/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p5zsink.F90

    r5266 r5288  
    88   !!             3.4  !  2011-06  (O. Aumont, C. Ethe) Change aggregation formula 
    99   !!             3.5  !  2012-07  (O. Aumont) Introduce potential time-splitting 
     10   !!             3.6  !  2015-05  (O. Aumont) PISCES quota 
    1011   !!---------------------------------------------------------------------- 
    1112#if defined key_pisces_quota 
    … …  
    111112         DO jj = 1, jpj 
    112113            DO ji = 1,jpi 
    113                zmax  = MAX( heup(ji,jj), hmld(ji,jj) ) 
     114               zmax  = MAX( heup_01(ji,jj), hmld(ji,jj) ) 
    114115               zfact = MAX( 0., fsdepw(ji,jj,jk+1) - zmax ) / 5000._wp 
    115                wsbio4(ji,jj,jk) = wsbio2 + ( 200.- wsbio2 ) * zfact 
     116               wsbio4(ji,jj,jk) = wsbio2  
    116117            END DO 
    117118         END DO 
Note: See TracChangeset for help on using the changeset viewer.