/[MITgcm]/MITgcm/pkg/cost/cost_check.F
ViewVC logotype

Contents of /MITgcm/pkg/cost/cost_check.F

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

Revision 1.2 - (show annotations) (download)
Mon Jun 23 22:29:05 2003 UTC (20 years, 11 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint52l_pre, hrcube4, hrcube5, checkpoint52d_pre, checkpoint56b_post, checkpoint52j_pre, checkpoint51o_pre, checkpoint54d_post, checkpoint54e_post, checkpoint51l_post, checkpoint52l_post, checkpoint52k_post, checkpoint55, checkpoint54, checkpoint56, checkpoint51, checkpoint53, checkpoint52, checkpoint52f_post, checkpoint54f_post, checkpoint51f_post, checkpoint51d_post, checkpoint51t_post, checkpoint51n_post, checkpoint55i_post, checkpoint52i_pre, hrcube_1, hrcube_2, hrcube_3, checkpoint51s_post, checkpoint55c_post, checkpoint51j_post, checkpoint52e_pre, checkpoint52e_post, checkpoint51n_pre, checkpoint53d_post, checkpoint52b_pre, checkpoint54b_post, checkpoint51l_pre, checkpoint52m_post, checkpoint55g_post, checkpoint51q_post, checkpoint51b_pre, checkpoint52b_post, checkpoint52c_post, checkpoint51h_pre, checkpoint52f_pre, checkpoint55d_post, checkpoint54a_pre, checkpoint53c_post, checkpoint55d_pre, checkpoint55j_post, branchpoint-genmake2, checkpoint54a_post, checkpoint55h_post, checkpoint51r_post, checkpoint51i_post, checkpoint55b_post, checkpoint51b_post, checkpoint51c_post, checkpoint53a_post, checkpoint55f_post, checkpoint52d_post, checkpoint53g_post, checkpoint52a_pre, checkpoint52i_post, checkpoint50i_post, checkpoint51i_pre, checkpoint52h_pre, checkpoint56a_post, checkpoint53f_post, checkpoint52j_post, branch-netcdf, checkpoint52n_post, checkpoint53b_pre, checkpoint51e_post, checkpoint55a_post, checkpoint51o_post, checkpoint51f_pre, checkpoint53b_post, checkpoint52a_post, checkpoint51g_post, ecco_c52_e35, checkpoint51m_post, checkpoint53d_pre, checkpoint55e_post, checkpoint54c_post, checkpoint51a_post, checkpoint51p_post, checkpoint51u_post
Branch point for: branch-genmake2, branch-nonh, tg2-branch, netcdf-sm0, checkpoint51n_branch
Changes since 1.1: +110 -0 lines 
Preparing next differentiable checkpoint and sync
of MAIN vs. ecco-branch
1
2 #include "COST_CPPOPTIONS.h"
3
4 SUBROUTINE COST_CHECK( myThid )
5 C /==========================================================\
6 C | SUBROUTINE CTRK_CHECK |
7 C | o Validate basic package setup and inter-package |
8 C | dependencies. |
9 C \==========================================================/
10 IMPLICIT NONE
11
12 C === Global variables ===
13 #include "SIZE.h"
14 #include "EEPARAMS.h"
15 #include "PARAMS.h"
16
17 C === Routine arguments ===
18 C myThid - Number of this instance
19 INTEGER myThid
20
21 C === Local variables ===
22 C msgBuf - Informational/error meesage buffer
23 CHARACTER*(MAX_LEN_MBUF) msgBuf
24
25 WRITE(msgBuf,'(A)') 'COST_CHECK: cost package'
26 CALL PRINT_MESSAGE( msgBuf, standardMessageUnit,
27 & SQUEEZE_RIGHT , 1)
28
29 #if ((defined (ALLOW_HFLUX_CONTROL) && \
30 !defined (ALLOW_HFLUX_COST_CONTRIBUTION)) || \
31 (!defined (ALLOW_HFLUX_CONTROL) && \
32 defined (ALLOW_HFLUX_COST_CONTRIBUTION)))
33 WRITE(msgBuf,'(A)')
34 & 'Must have both ',
35 & 'ALLOW_HFLUX_CONTROL & ALLOW_HFLUX_COST_CONTRIBUTION'
36 CALL PRINT_ERROR( msgBuf , 1)
37 STOP 'ABNORMAL END: S/R COST_CHECK'
38 #elif ((defined (ALLOW_ATEMP_CONTROL) && \
39 !defined (ALLOW_ATEMP_COST_CONTRIBUTION)) || \
40 (!defined (ALLOW_ATEMP_CONTROL) && \
41 defined (ALLOW_ATEMP_COST_CONTRIBUTION)))
42 WRITE(msgBuf,'(A)')
43 & 'Must have both ',
44 & 'ALLOW_ATEMP_CONTROL & ALLOW_ATEMP_COST_CONTRIBUTION'
45 CALL PRINT_ERROR( msgBuf , 1)
46 STOP 'ABNORMAL END: S/R COST_CHECK'
47 #endif
48
49 #if ((defined (ALLOW_SFLUX_CONTROL) && \
50 !defined (ALLOW_SFLUX_COST_CONTRIBUTION)) || \
51 (!defined (ALLOW_SFLUX_CONTROL) && \
52 defined (ALLOW_SFLUX_COST_CONTRIBUTION)))
53 WRITE(msgBuf,'(A)')
54 & 'Must have both ',
55 & 'ALLOW_SFLUX_CONTROL & ALLOW_SFLUX_COST_CONTRIBUTION'
56 CALL PRINT_ERROR( msgBuf , 1)
57 STOP 'ABNORMAL END: S/R COST_CHECK'
58 #elif ((defined (ALLOW_AQH_CONTROL) && \
59 !defined (ALLOW_AQH_COST_CONTRIBUTION)) || \
60 (!defined (ALLOW_AQH_CONTROL) && \
61 defined (ALLOW_AQH_COST_CONTRIBUTION)))
62 WRITE(msgBuf,'(A)')
63 & 'Must have both ',
64 & 'ALLOW_AQH_CONTROL & ALLOW_AQH_COST_CONTRIBUTION'
65 CALL PRINT_ERROR( msgBuf , 1)
66 STOP 'ABNORMAL END: S/R COST_CHECK'
67 #endif
68
69 #if ((defined (ALLOW_USTRESS_CONTROL) && \
70 !defined (ALLOW_USTRESS_COST_CONTRIBUTION)) || \
71 (!defined (ALLOW_USTRESS_CONTROL) && \
72 defined (ALLOW_USTRESS_COST_CONTRIBUTION)))
73 WRITE(msgBuf,'(A)')
74 & 'Must have both ',
75 & 'ALLOW_USTRESS_CONTROL & ALLOW_USTRESS_COST_CONTRIBUTION'
76 CALL PRINT_ERROR( msgBuf , 1)
77 STOP 'ABNORMAL END: S/R COST_CHECK'
78 #elif ((defined (ALLOW_UWIND_CONTROL) && \
79 !defined (ALLOW_UWIND_COST_CONTRIBUTION)) || \
80 (!defined (ALLOW_UWIND_CONTROL) && \
81 defined (ALLOW_UWIND_COST_CONTRIBUTION)))
82 WRITE(msgBuf,'(A)')
83 & 'Must have both ',
84 & 'ALLOW_UWIND_CONTROL & ALLOW_UWIND_COST_CONTRIBUTION'
85 CALL PRINT_ERROR( msgBuf , 1)
86 STOP 'ABNORMAL END: S/R COST_CHECK'
87 #endif
88
89 #if ((defined (ALLOW_VSTRESS_CONTROL) && \
90 !defined (ALLOW_VSTRESS_COST_CONTRIBUTION)) || \
91 (!defined (ALLOW_VSTRESS_CONTROL) && \
92 defined (ALLOW_VSTRESS_COST_CONTRIBUTION)))
93 WRITE(msgBuf,'(A)')
94 & 'Must have both ',
95 & 'ALLOW_VSTRESS_CONTROL & ALLOW_VSTRESS_COST_CONTRIBUTION'
96 CALL PRINT_ERROR( msgBuf , 1)
97 STOP 'ABNORMAL END: S/R COST_CHECK'
98 #elif ((defined (ALLOW_VWIND_CONTROL) && \
99 !defined (ALLOW_VWIND_COST_CONTRIBUTION)) || \
100 (!defined (ALLOW_VWIND_CONTROL) && \
101 defined (ALLOW_VWIND_COST_CONTRIBUTION)))
102 WRITE(msgBuf,'(A)')
103 & 'Must have both ',
104 & 'ALLOW_VWIND_CONTROL & ALLOW_VWIND_COST_CONTRIBUTION'
105 CALL PRINT_ERROR( msgBuf , 1)
106 STOP 'ABNORMAL END: S/R COST_CHECK'
107 #endif
108
109 return
110 end
  ViewVC Help
Powered by ViewVC 1.1.22