/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_check.F
ViewVC logotype

Annotation of /MITgcm_contrib/darwin2/pkg/darwin/darwin_check.F

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

Revision 1.2 - (hide annotations) (download)
Wed Dec 4 21:27:54 2013 UTC (11 years, 11 months ago) by jahn
Branch: MAIN
CVS Tags: ctrb_darwin2_ckpt65w_20160512, ctrb_darwin2_ckpt65j_20150225, ctrb_darwin2_ckpt66g_20170424, ctrb_darwin2_ckpt66k_20171025, ctrb_darwin2_ckpt66n_20180118, ctrb_darwin2_ckpt65v_20160409, ctrb_darwin2_ckpt65s_20160114, ctrb_darwin2_ckpt65_20140718, ctrb_darwin2_ckpt66d_20170214, ctrb_darwin2_ckpt64r_20131210, ctrb_darwin2_ckpt65m_20150615, ctrb_darwin2_ckpt65q_20151118, ctrb_darwin2_ckpt65o_20150914, ctrb_darwin2_ckpt65p_20151023, ctrb_darwin2_ckpt65e_20140929, 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_ckpt64s_20140105, ctrb_darwin2_ckpt64x_20140524, ctrb_darwin2_ckpt65x_20160612, ctrb_darwin2_ckpt66f_20170407, ctrb_darwin2_ckpt65g_20141120, ctrb_darwin2_ckpt65k_20150402, ctrb_darwin2_ckpt64w_20140502, ctrb_darwin2_ckpt66a_20161020, ctrb_darwin2_ckpt65f_20141014, ctrb_darwin2_ckpt66b_20161219, ctrb_darwin2_ckpt64u_20140308, ctrb_darwin2_ckpt65i_20150123, ctrb_darwin2_ckpt66j_20170815, ctrb_darwin2_ckpt65y_20160801, ctrb_darwin2_ckpt66c_20170121, ctrb_darwin2_ckpt65a_20140728, ctrb_darwin2_ckpt65b_20140812, ctrb_darwin2_ckpt65t_20160221, ctrb_darwin2_ckpt66o_20180209, ctrb_darwin2_ckpt66e_20170314, 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: +52 -5 lines 
read seaice fraction through exf
- set areamaskfile in data.exf to a file with multiple time records
  and provide timing information
- need to define EXF_SEAICE_FRACTION in EXF_OPTIONS.h for this to work
1 jahn 1.2 C $Header: /u/gcmpack/MITgcm_contrib/darwin2/pkg/darwin/darwin_check.F,v 1.1 2011/04/13 18:56:24 jahn Exp $
2     C $Name: $
3 jahn 1.1
4     #include "DARWIN_OPTIONS.h"
5    
6     SUBROUTINE DARWIN_CHECK( myThid )
7     C /==========================================================\
8     C | SUBROUTINE DARWIN_CHECK |
9     C | o Check dependences with other packages: |
10     C | Print darwin indices (iPO4,...) and ptracer names |
11     C | to allow for manual check |
12     C \==========================================================/
13     IMPLICIT NONE
14    
15     C === Global variables ===
16 jahn 1.2 #include "SIZE.h"
17     #include "EEPARAMS.h"
18     #include "PARAMS.h"
19     #include "DARWIN_SIZE.h"
20     #include "DARWIN_IO.h"
21 jahn 1.1
22     C === Routine arguments ===
23     C myThid - Number of this instances
24     INTEGER myThid
25    
26 jahn 1.2 #ifdef ALLOW_DARWIN
27    
28 jahn 1.1 C === Local variables ===
29 jahn 1.2 C !LOCAL VARIABLES: ====================================================
30     C iUnit :: unit number for I/O
31     C msgBuf :: message buffer
32     INTEGER iUnit,errIO
33     CHARACTER*(MAX_LEN_MBUF) msgBuf
34     CEOP
35    
36     _BEGIN_MASTER(myThid)
37    
38     C-- Print a summary of dependent parameter values:
39     iUnit = standardMessageUnit
40     WRITE(msgBuf,'(A)') '// ==================================='
41     CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
42     WRITE(msgBuf,'(A)') '// darwin dependent parameters'
43     CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
44     WRITE(msgBuf,'(A)') '// ==================================='
45     CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
46     IF ( darwin_useiceFile ) THEN
47     WRITE(msgBuf,'(2A)') 'DARWIN_CHECK:',
48     & ' using ice area from darwin_iceFile'
49     CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
50     ENDIF
51     IF ( darwin_useareamask ) THEN
52     WRITE(msgBuf,'(2A)') 'DARWIN_CHECK:',
53     & ' using ice area from exf'
54     CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
55     ENDIF
56     IF ( darwin_useiceMask ) THEN
57     WRITE(msgBuf,'(2A)') 'DARWIN_CHECK:',
58     & ' using ice area from THSICE pkg'
59     CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
60     ENDIF
61     IF ( darwin_useAREA ) THEN
62     WRITE(msgBuf,'(2A)') 'DARWIN_CHECK:',
63     & ' using ice area from SEAICE pkg'
64     CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
65     ENDIF
66     WRITE(msgBuf,'(A)') '// ==================================='
67     CALL PRINT_MESSAGE( msgBuf, iUnit, SQUEEZE_RIGHT , myThid )
68    
69     _END_MASTER(myThid)
70 jahn 1.1
71     #ifdef ALLOW_QUOTA
72     CALL QUOTA_CHECK( myThid )
73     #endif
74 jahn 1.2
75 jahn 1.1 #ifdef ALLOW_MONOD
76     CALL MONOD_CHECK( myThid )
77     #endif
78 jahn 1.2
79 jahn 1.1 #endif /* ALLOW_DARWIN */
80    
81     RETURN
82     END
83    
  ViewVC Help
Powered by ViewVC 1.1.22