pkg/quota/quota_tempfunc.F


#include "CPP_OPTIONS.h"
#include "PTRACERS_OPTIONS.h"
#include "DARWIN_OPTIONS.h"

#ifdef ALLOW_PTRACERS
#ifdef ALLOW_DARWIN
#ifdef ALLOW_QUOTA
c ====================================================================
c SUBROUTINE QUOTA_TEMPFUNC
c ====================================================================

       SUBROUTINE QUOTA_TEMPFUNC(
     I                    Tlocal,
     O                    photo_TempFunction,
     O                    activ_TempFunction,
     I                    myThid)

         implicit none
#include "QUOTA_SIZE.h"
#include "QUOTA.h"

C !INPUT PARAMETERS: ===================================================
C  myThid               :: thread number
       INTEGER myThid
       _RL photo_TempFunction
       _RL activ_TempFunction
       _RL Tlocal
c local
       _RL Temp_P,Temp_A,Tempref
       INTEGER jp
c

!       Temp_P = 0.0637 _d 0
!       Temp_A = 0.1 _d 0
       Temp_P = 0.05 _d 0
       Temp_A = 0.05 _d 0

       Tempref= 30. _d 0
c
       photo_TempFunction = exp(Temp_P*(Tlocal - Tempref))
       photo_TempFunction = max(photo_TempFunction,1. _d -10)
c
       activ_TempFunction = exp(Temp_A*(Tlocal - Tempref))
       activ_TempFunction = max(activ_TempFunction,1. _d -10)
c
       RETURN
       END
#endif  /*ALLOW_QUOTA*/
#endif  /*DARWIN*/
#endif  /*ALLOW_PTRACERS*/
c ==================================================================
1	jahn	1.1
2			#include "CPP_OPTIONS.h"
3			#include "PTRACERS_OPTIONS.h"
4			#include "DARWIN_OPTIONS.h"
5
6			#ifdef ALLOW_PTRACERS
7			#ifdef ALLOW_DARWIN
8			#ifdef ALLOW_QUOTA
9			c ====================================================================
10			c SUBROUTINE QUOTA_TEMPFUNC
11			c ====================================================================
12
13			SUBROUTINE QUOTA_TEMPFUNC(
14			I Tlocal,
15			O photo_TempFunction,
16			O activ_TempFunction,
17			I myThid)
18
19			implicit none
20			#include "QUOTA_SIZE.h"
21			#include "QUOTA.h"
22
23			C !INPUT PARAMETERS: ===================================================
24			C myThid :: thread number
25			INTEGER myThid
26			_RL photo_TempFunction
27			_RL activ_TempFunction
28			_RL Tlocal
29			c local
30			_RL Temp_P,Temp_A,Tempref
31			INTEGER jp
32			c
33
34			! Temp_P = 0.0637 _d 0
35			! Temp_A = 0.1 _d 0
36			Temp_P = 0.05 _d 0
37			Temp_A = 0.05 _d 0
38
39			Tempref= 30. _d 0
40			c
41			photo_TempFunction = exp(Temp_P*(Tlocal - Tempref))
42			photo_TempFunction = max(photo_TempFunction,1. _d -10)
43			c
44			activ_TempFunction = exp(Temp_A*(Tlocal - Tempref))
45			activ_TempFunction = max(activ_TempFunction,1. _d -10)
46			c
47			RETURN
48			END
49			#endif /ALLOW_QUOTA/
50			#endif /DARWIN/
51			#endif /ALLOW_PTRACERS/
52			c ==================================================================