- Timestamp:
- 2018-11-07T18:25:49+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2018/dev_r9866_HPC_03_globcom/src/TOP/PISCES/P4Z/p4zmeso.F90
- Property svn:keywords set to Id
r9598 r10288 44 44 45 45 !!---------------------------------------------------------------------- 46 !! NEMO/TOP 3.3, NEMO Consortium (2018)47 !! $Id : p4zmeso.F90 3160 2011-11-20 14:27:18Z cetlod$48 !! Software governed by the CeCILL licen ce (./LICENSE)46 !! NEMO/TOP 4.0 , NEMO Consortium (2018) 47 !! $Id$ 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.