/[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.1 by jahn, Wed Apr 13 18:56:25 2011 UTC revision 1.2 by stephd, Thu Jun 28 20:36:11 2012 UTC
# Line 17  c ====================================== Line 17  c ======================================
17       O                    zooTempFunction,       O                    zooTempFunction,
18  #endif  #endif
19       O                    reminTempFunction,       O                    reminTempFunction,
20         O                    mortPTempFunction,
21         O                    mortZTempFunction,
22         O                    mortZ2TempFunction,
23       I                    myThid)       I                    myThid)
24    
25           implicit none           implicit none
# Line 37  C  myThid               :: thread number Line 40  C  myThid               :: thread number
40         _RL zooTempFunction(nzmax)         _RL zooTempFunction(nzmax)
41  #endif  #endif
42         _RL reminTempFunction         _RL reminTempFunction
43           _RL mortPTempFunction
44           _RL mortZTempFunction
45           _RL mortZ2TempFunction
46         _RL Tlocal         _RL Tlocal
47    
48  c local  c local
# Line 79  c    &             zooTempExp(nz)*(Tloca Line 85  c    &             zooTempExp(nz)*(Tloca
85            end do            end do
86  #endif  #endif
87            reminTempFunction = 1.0 _d 0            reminTempFunction = 1.0 _d 0
88              mortPTempFunction = 1.0 _d 0
89              mortZTempFunction = 1.0 _d 0
90              mortZ2TempFunction = 1.0 _d 0
91  c ++++++++++++++ END VERSION 1 +++++++++++++++++++++++++++++++++++++++  c ++++++++++++++ END VERSION 1 +++++++++++++++++++++++++++++++++++++++
92  c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
93  #elif TEMP_VERSION == 2  #elif TEMP_VERSION == 2
# Line 124  c              zooTempFunction(nz) = 1. Line 133  c              zooTempFunction(nz) = 1.
133           reminTempFunction = TempCoeff*           reminTempFunction = TempCoeff*
134       &                  max(reminTempFunction, 1. _d -10)       &                  max(reminTempFunction, 1. _d -10)
135  c        reminTempFunction = 1. _d 0  c        reminTempFunction = 1. _d 0
136    c        mortPTempFunction = reminTempFunction
137    c        mortZTempFunction = reminTempFunction
138    c        mortZ2TempFunction = reminTempFunction
139             mortPTempFunction = 1.0 _d 0
140             mortZTempFunction = 1.0 _d 0
141             mortZ2TempFunction = 1.0 _d 0
142  c ++++++++++++++ END VERSION 2 +++++++++++++++++++++++++++++++++++++++  c ++++++++++++++ END VERSION 2 +++++++++++++++++++++++++++++++++++++++
143  c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  c++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
144  #else  #else
# Line 142  c +++++++++++++++++++  NO TEMP LIMITATIO Line 157  c +++++++++++++++++++  NO TEMP LIMITATIO
157           end do           end do
158  #endif  #endif
159           reminTempFunction = 1.0 _d 0           reminTempFunction = 1.0 _d 0
160             mortTempFunction = 1.0 _d 0
161             mort2TempFunction = 1.0 _d 0
162  #endif  #endif
163  c +++++++++++++  END NO TEMP LIMITATION +++++++++++++++++++++++++++++  c +++++++++++++  END NO TEMP LIMITATION +++++++++++++++++++++++++++++
164  c ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++  c ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22