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

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

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

Revision 1.1 - (hide annotations) (download)
Wed Apr 13 18:56:25 2011 UTC (14 years, 3 months ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt64k_20130723, ctrb_darwin2_ckpt65w_20160512, ctrb_darwin2_ckpt65j_20150225, ctrb_darwin2_ckpt63l_20120405, ctrb_darwin2_ckpt66g_20170424, ctrb_darwin2_ckpt64h_20130528, ctrb_darwin2_ckpt66k_20171025, ctrb_darwin2_ckpt66n_20180118, ctrb_darwin2_ckpt62v_20110413, 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_ckpt63f_20111201, 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_ckpt62y_20110526, ctrb_darwin2_ckpt64y_20140622, ctrb_darwin2_ckpt65d_20140915, ctrb_darwin2_ckpt64t_20140202, ctrb_darwin2_ckpt66h_20170602, ctrb_darwin2_ckpt64i_20130622, ctrb_darwin2_ckpt62x_20110513, ctrb_darwin2_ckpt64s_20140105, ctrb_darwin2_ckpt62w_20110426, ctrb_darwin2_ckpt64x_20140524, ctrb_darwin2_ckpt63o_20120629, ctrb_darwin2_ckpt64e_20130305, ctrb_darwin2_ckpt65x_20160612, ctrb_darwin2_ckpt66f_20170407, ctrb_darwin2_ckpt63c_20111011, ctrb_darwin2_ckpt63i_20120124, ctrb_darwin2_ckpt65g_20141120, ctrb_darwin2_ckpt63m_20120506, ctrb_darwin2_ckpt63s_20120908, ctrb_darwin2_ckpt65k_20150402, ctrb_darwin2_ckpt63e_20111107, ctrb_darwin2_ckpt64w_20140502, ctrb_darwin2_ckpt63b_20110830, ctrb_darwin2_ckpt63j_20120217, ctrb_darwin2_ckpt66a_20161020, ctrb_darwin2_ckpt63r_20120817, ctrb_darwin2_ckpt64g_20130503, ctrb_darwin2_ckpt64l_20130806, ctrb_darwin2_ckpt63g_20111220, ctrb_darwin2_ckpt65f_20141014, ctrb_darwin2_ckpt64c_20130120, ctrb_darwin2_ckpt63a_20110804, 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_ckpt63h_20111230, 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_ckpt63d_20111107, ctrb_darwin2_ckpt63q_20120731, ctrb_darwin2_ckpt63_20110728, 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_baseline, ctrb_darwin2_ckpt64p_20131024, ctrb_darwin2_ckpt65u_20160315, ctrb_darwin2_ckpt65r_20151221, ctrb_darwin2_ckpt66i_20170718, ctrb_darwin2_ckpt63n_20120604, ctrb_darwin2_ckpt63k_20120317, ctrb_darwin2_ckpt65c_20140830, ctrb_darwin2_ckpt62z_20110622, ctrb_darwin2_ckpt66l_20171025, ctrb_darwin2_ckpt65h_20141217, ctrb_darwin2_ckpt66m_20171213, HEAD 
darwin2 initial checkin
1 jahn 1.1 C $Header: /u/gcmpack/MITgcm_contrib/darwin/pkg/darwin/darwin_check.F,v 1.2 2009/02/27 19:04:26 jahn Exp $
2     C $Name: $
3    
4     #include "CPP_OPTIONS.h"
5     #include "PTRACERS_OPTIONS.h"
6     #include "DARWIN_OPTIONS.h"
7    
8     #ifdef ALLOW_PTRACERS
9     #ifdef ALLOW_DARWIN
10     #ifdef ALLOW_QUOTA
11    
12     SUBROUTINE QUOTA_CHECK( myThid )
13     C /==========================================================\
14     C | SUBROUTINE QOUTA_CHECK |
15     C | o Check dependences with other packages: |
16     C | Print darwin indices (iPO4,...) and ptracer names |
17     C | to allow for manual check |
18     C \==========================================================/
19     IMPLICIT NONE
20    
21     C === Global variables ===
22     #include "SIZE.h"
23     #include "EEPARAMS.h"
24     #include "PARAMS.h"
25     #include "PTRACERS_SIZE.h"
26     #include "PTRACERS_PARAMS.h"
27     #include "GCHEM.h"
28     #include "QUOTA_SIZE.h"
29     #include "QUOTA.h"
30    
31     C === Routine arguments ===
32     C myThid - Number of this instances
33     INTEGER myThid
34    
35     C === Local variables ===
36     C msgBuf - Informational/error meesage buffer
37     CHARACTER*(MAX_LEN_MBUF) msgBuf
38     INTEGER i,j,bi,bj,ii,io,jp,ko
39     INTEGER place
40    
41     WRITE(msgBuf,'(A)') 'QUOTA_CHECK: #define ALLOW_DARWIN'
42     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
43     & SQUEEZE_RIGHT,myThid)
44    
45     if ( nDarwin .GT. PTRACERS_num ) THEN
46     WRITE(msgBuf,'(A,I5,A,I5)')
47     & 'QUOTA_CHECK: ERROR: nDarwin > PTRACERS_num: ',
48     & nDarwin,' vs ',PTRACERS_num
49     CALL PRINT_ERROR( msgBuf , 1)
50     STOP 'ABNORMAL END: S/R QUOTA_CHECK'
51     ENDIF
52     WRITE(msgBuf,'(A)') 'QUOTA_CHECK: iPtr darwin PTRACERS_names'
53     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
54     & SQUEEZE_RIGHT,myThid)
55     WRITE(msgBuf,'(A)')
56     & '// ======================================================='
57     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
58     & SQUEEZE_RIGHT, myThid )
59     c quota tracers
60     place = 0
61     c inorganic nutrient tracers
62     DO ii=1,iimax
63     place = place + 1
64     WRITE(msgBuf,'(A,I4,X,A,I4,A,A32)') 'QUOTA_CHECK: ',
65     & place,'inoganic nutrient (',ii,') - ',PTRACERS_names(place)
66     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
67     & SQUEEZE_RIGHT,myThid)
68     ENDDO
69     WRITE(msgBuf,'(A)')
70     & '// ======================================================='
71     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
72     & SQUEEZE_RIGHT, myThid )
73     c biomass tracers
74     DO io=1,iomax
75     DO jp=1,min(npmax,99)
76     if (io.ne.iSili) then
77     place = place + 1
78     WRITE(msgBuf,'(A,I4,X,A,I1,A,I2,A,A32)') 'QUOTA_CHECK: ',
79     & place,'biomass (',io,',',jp,') - ', PTRACERS_names(place)
80     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
81     & SQUEEZE_RIGHT,myThid)
82     endif
83     ENDDO
84     ENDDO
85     WRITE(msgBuf,'(A)')
86     & '// ======================================================='
87     CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
88     & SQUEEZE_RIGHT, myThid )
89     c organic matter tracers
90     DO io=1,iomax-iChl
91     DO ko=1,min(komax,99)
92     if (io.ne.iSili.or.ko.ne.1) then
93     place = place + 1
94     WRITE(msgBuf,'(A,I4,X,A,I1,A,I2,A,A32)') 'QUOTA_CHECK: ',
95     & place,'orgmat(',io,',',ko,') - ',PTRACERS_names(place)
96     CALL PRINT_MESSAGE(msgBuf,standardMessageUnit,
97     & SQUEEZE_RIGHT,myThid)
98     endif
99     ENDDO
100     ENDDO
101    
102    
103     RETURN
104     END
105    
106     #endif /* ALLOW_QUOTA */
107     #endif /* ALLOW_DARWIN */
108     #endif /* ALLOW_PTRACERS */
109    
  ViewVC Help
Powered by ViewVC 1.1.22