/[MITgcm]/MITgcm_contrib/darwin2/pkg/quota/quota_tempfunc.F
ViewVC logotype

Annotation of /MITgcm_contrib/darwin2/pkg/quota/quota_tempfunc.F

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

Revision 1.2 - (hide annotations) (download)
Mon Jul 2 09:58:15 2012 UTC (13 years ago) by benw
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt64k_20130723, ctrb_darwin2_ckpt65w_20160512, ctrb_darwin2_ckpt65j_20150225, ctrb_darwin2_ckpt66g_20170424, ctrb_darwin2_ckpt64h_20130528, ctrb_darwin2_ckpt66k_20171025, ctrb_darwin2_ckpt66n_20180118, ctrb_darwin2_ckpt65v_20160409, ctrb_darwin2_ckpt65s_20160114, ctrb_darwin2_ckpt65_20140718, ctrb_darwin2_ckpt64m_20130820, ctrb_darwin2_ckpt66d_20170214, ctrb_darwin2_ckpt64r_20131210, ctrb_darwin2_ckpt65m_20150615, ctrb_darwin2_ckpt65q_20151118, ctrb_darwin2_ckpt65o_20150914, ctrb_darwin2_ckpt64f_20130405, ctrb_darwin2_ckpt64a_20121116, ctrb_darwin2_ckpt65p_20151023, ctrb_darwin2_ckpt64n_20130826, ctrb_darwin2_ckpt65e_20140929, ctrb_darwin2_ckpt64o_20131024, ctrb_darwin2_ckpt64v_20140411, ctrb_darwin2_ckpt64z_20140711, ctrb_darwin2_ckpt65l_20150504, ctrb_darwin2_ckpt65z_20160929, ctrb_darwin2_ckpt65n_20150729, ctrb_darwin2_ckpt64y_20140622, ctrb_darwin2_ckpt65d_20140915, ctrb_darwin2_ckpt64t_20140202, ctrb_darwin2_ckpt66h_20170602, ctrb_darwin2_ckpt64i_20130622, ctrb_darwin2_ckpt64s_20140105, ctrb_darwin2_ckpt64x_20140524, ctrb_darwin2_ckpt64e_20130305, ctrb_darwin2_ckpt65x_20160612, ctrb_darwin2_ckpt66f_20170407, ctrb_darwin2_ckpt65g_20141120, ctrb_darwin2_ckpt63s_20120908, ctrb_darwin2_ckpt65k_20150402, ctrb_darwin2_ckpt64w_20140502, ctrb_darwin2_ckpt66a_20161020, ctrb_darwin2_ckpt63r_20120817, ctrb_darwin2_ckpt64g_20130503, ctrb_darwin2_ckpt64l_20130806, ctrb_darwin2_ckpt65f_20141014, ctrb_darwin2_ckpt64c_20130120, ctrb_darwin2_ckpt66b_20161219, ctrb_darwin2_ckpt64u_20140308, ctrb_darwin2_ckpt64j_20130704, ctrb_darwin2_ckpt65i_20150123, ctrb_darwin2_ckpt66j_20170815, ctrb_darwin2_ckpt65y_20160801, ctrb_darwin2_ckpt63p_20120707, ctrb_darwin2_ckpt66c_20170121, ctrb_darwin2_ckpt65a_20140728, ctrb_darwin2_ckpt65b_20140812, ctrb_darwin2_ckpt65t_20160221, ctrb_darwin2_ckpt64p_20131118, ctrb_darwin2_ckpt63q_20120731, ctrb_darwin2_ckpt64b_20121224, ctrb_darwin2_ckpt64d_20130219, ctrb_darwin2_ckpt66o_20180209, ctrb_darwin2_ckpt66e_20170314, ctrb_darwin2_ckpt64_20121012, ctrb_darwin2_ckpt64q_20131118, ctrb_darwin2_ckpt64p_20131024, ctrb_darwin2_ckpt65u_20160315, ctrb_darwin2_ckpt65r_20151221, ctrb_darwin2_ckpt66i_20170718, ctrb_darwin2_ckpt65c_20140830, ctrb_darwin2_ckpt66l_20171025, ctrb_darwin2_ckpt65h_20141217, ctrb_darwin2_ckpt66m_20171213, HEAD
Changes since 1.1: +1 -1 lines 
Reference T is now 20 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 benw 1.2 Tempref= 20. _d 0
40 jahn 1.1 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 ==================================================================
  ViewVC Help
Powered by ViewVC 1.1.22