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 3829 for branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90 – NEMO

Ignore:
Timestamp:
2013-03-06T11:59:57+01:00 (11 years ago)
Author:
cetlod
Message:

v3.5alpha: bugfixes on mesozoo efficiency calculation, see ticket #1067

File:
1 edited

Legend:

Unmodified
Added
Removed

  • branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90

    r3446 r3829  
    141141               zepshert  = epsher * MIN( 1., zncratio ) 
    142142               zepsherv  = zepshert * MIN( 1., zgrasrat / ferat3 ) 
    143                zgrafer   = zgraztot * MAX( 0. , ( 1. - unass ) * zgrasrat - ferat3 * zepshert )  
     143               zgrafer   = zgraztot * MAX( 0. , ( 1. - unass ) * zgrasrat - ferat3 * zepsherv )  
    144144               zgrarem   = zgraztot * ( 1. - zepsherv - unass ) 
    145145               zgrapoc   = zgraztot * unass 
Note: See TracChangeset for help on using the changeset viewer.