/[MITgcm]/MITgcm_contrib/darwin2/pkg/monod/monod_tempfunc.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/monod/monod_tempfunc.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.2 by stephd, Thu Jun 28 20:36:11 2012 UTC revision 1.3 by stephd, Thu Mar 28 20:14:42 2013 UTC
# Line 118  cswd -- temperature range Line 118  cswd -- temperature range
118           enddo           enddo
119  #ifndef QUOTA  #ifndef QUOTA
120           do nz = 1,nzmax           do nz = 1,nzmax
121                zooTempFunction(nz) =  c             zooTempFunction(nz) =
122       &                  exp(TempAe*(1/(Tlocal+Tkel) -  c    &                  exp(TempAe*(1/(Tlocal+Tkel) -
123       &                                   1/(Tempref) ) )  c    &                                   1/(Tempref) ) )
124                zooTempFunction(nz) = zooTempFunction(nz) - tempnorm  c             zooTempFunction(nz) = zooTempFunction(nz) - tempnorm
125                zooTempFunction(nz) = TempCoeff*  c             zooTempFunction(nz) = TempCoeff*
126       &                  max(zooTempFunction(nz), 1. _d -10)  c    &                  max(zooTempFunction(nz), 1. _d -10)
127  c              zooTempFunction(nz) = 1. _d 0                 zooTempFunction(nz) = 1. _d 0
128           end do           end do
129  #endif  #endif
130           reminTempFunction = exp(TempAe*(1/(Tlocal+Tkel) -           reminTempFunction = exp(TempAe*(1/(Tlocal+Tkel) -
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22