- Timestamp:
- 2018-11-16T16:13:30+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/UKMO/dev_r9950_GO6_mixing/src/TOP/PISCES/P4Z/p4zmeso.F90
- Property svn:keywords set to Id
r9950 r10323 44 44 45 45 !!---------------------------------------------------------------------- 46 !! NEMO/TOP 3.3, NEMO Consortium (2018)46 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 47 47 !! $Id$ 48 !! Software governed by the CeCILL licen ce (./LICENSE)48 !! Software governed by the CeCILL license (see ./LICENSE) 49 49 !!---------------------------------------------------------------------- 50 50 CONTAINS … … 108 108 zdenom = zfoodlim / ( xkgraz2 + zfoodlim ) 109 109 zdenom2 = zdenom / ( zfood + rtrn ) 110 zgraze2 = grazrat2 * xstep * tgfunc2(ji,jj,jk) * trb(ji,jj,jk,jpmes) 110 zgraze2 = grazrat2 * xstep * tgfunc2(ji,jj,jk) * trb(ji,jj,jk,jpmes) * (1. - nitrfac(ji,jj,jk)) 111 111 112 112 zgrazd = zgraze2 * xprefc * zcompadi * zdenom2
Note: See TracChangeset
for help on using the changeset viewer.