- Timestamp:
- 2013-03-06T11:59:57+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_MERGE_2012/NEMOGCM/NEMO/TOP_SRC/PISCES/P4Z/p4zmicro.F90
r3446 r3829 141 141 zepshert = epsher * MIN( 1., zncratio ) 142 142 zepsherv = zepshert * MIN( 1., zgrasrat / ferat3 ) 143 zgrafer = zgraztot * MAX( 0. , ( 1. - unass ) * zgrasrat - ferat3 * zepsher t)143 zgrafer = zgraztot * MAX( 0. , ( 1. - unass ) * zgrasrat - ferat3 * zepsherv ) 144 144 zgrarem = zgraztot * ( 1. - zepsherv - unass ) 145 145 zgrapoc = zgraztot * unass
Note: See TracChangeset
for help on using the changeset viewer.