/[MITgcm]/MITgcm/pkg/ecco/cost_obcs.F
ViewVC logotype

Contents of /MITgcm/pkg/ecco/cost_obcs.F

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

Revision 1.1 - (show annotations) (download)
Thu Nov 6 22:10:07 2003 UTC (20 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint52l_pre, checkpoint52e_pre, hrcube4, checkpoint52n_post, checkpoint52j_post, checkpoint53d_post, checkpoint54a_pre, checkpoint55c_post, checkpoint54e_post, checkpoint52e_post, checkpoint54a_post, checkpoint53c_post, checkpoint55d_pre, hrcube_1, branch-netcdf, checkpoint52d_pre, checkpoint52l_post, checkpoint52k_post, checkpoint52b_pre, checkpoint54b_post, checkpoint53b_pre, checkpoint55b_post, checkpoint54d_post, checkpoint52m_post, checkpoint55, checkpoint53a_post, checkpoint54, checkpoint54f_post, checkpoint53b_post, checkpoint52a_pre, checkpoint53, checkpoint52, checkpoint52d_post, checkpoint52a_post, checkpoint52b_post, checkpoint53g_post, checkpoint52f_post, checkpoint52c_post, ecco_c52_e35, hrcube5, checkpoint52i_post, checkpoint52j_pre, checkpoint53f_post, checkpoint55a_post, checkpoint53d_pre, checkpoint54c_post, checkpoint52i_pre, checkpoint51u_post, checkpoint52h_pre, checkpoint52f_pre, hrcube_2, hrcube_3
Branch point for: netcdf-sm0 
o merging from ecco-branch
o pkg/ecco now containes ecco-specific part of cost function
o top level routines the_main_loop, forward_step
  supersede those in model/src/
  previous input data.cost now in data.ecco
  (new namelist ecco_cost_nml)
1
2 #include "COST_CPPOPTIONS.h"
3
4
5 subroutine cost_obcs(
6 I myiter,
7 I mytime,
8 I mythid
9 & )
10
11 c ==================================================================
12 c SUBROUTINE cost_obcs
13 c ==================================================================
14 c
15 c o Evaluate cost function contributions for obc's
16 c
17 c ==================================================================
18 c SUBROUTINE cost_obcs
19 c ==================================================================
20
21 implicit none
22
23 c == global variables ==
24 #include "SIZE.h"
25 #include "EEPARAMS.h"
26
27 #include "cal.h"
28 #include "ctrl.h"
29
30 c == routine arguments ==
31
32 integer myiter
33 _RL mytime
34 integer mythid
35
36 c == local variables ==
37 integer startrec
38 integer endrec
39
40 c == end of interface ==
41
42 #if (defined (ALLOW_OBCSN_COST_CONTRIBUTION) && \
43 defined (ALLOW_OBCSN_CONTROL))
44 cgg North boundary contribution to cost function.
45 startrec = ncvarrecstart(11 )
46 endrec = ncvarrecsend(11 )
47 call cost_obcsn ( myiter, mytime,
48 & startrec,endrec, mythid )
49 #endif
50 #if (defined (ALLOW_OBCSS_COST_CONTRIBUTION) && \
51 defined (ALLOW_OBCSS_CONTROL))
52 cgg South boundary contribution to cost function.
53 startrec = ncvarrecstart(12 )
54 endrec = ncvarrecsend(12 )
55 call cost_obcss ( myiter, mytime,
56 & startrec,endrec, mythid )
57 #endif
58
59 #if (defined (ALLOW_OBCSW_COST_CONTRIBUTION) && \
60 defined (ALLOW_OBCSW_CONTROL))
61 cgg West boundary contribution to cost function.
62 startrec = ncvarrecstart(13 )
63 endrec = ncvarrecsend(13 )
64 call cost_obcsw ( myiter, mytime,
65 & startrec,endrec, mythid )
66 #endif
67
68 #if (defined (ALLOW_OBCSE_COST_CONTRIBUTION) && \
69 defined (ALLOW_OBCSE_CONTROL))
70 cgg East boundary contribution to cost function.
71 startrec = ncvarrecstart(14 )
72 endrec = ncvarrecsend(14 )
73 call cost_obcse ( myiter, mytime,
74 & startrec,endrec, mythid )
75 #endif
76
77 #ifdef OBCS_VOLFLUX_COST_CONTRIBUTION
78 call cost_obcsvol ( myiter,mytime,
79 & startrec, endrec, mythid)
80 #endif
81
82 Cgg ( Ageostrophic calculation uses *bar* fields not
83 cgg calculated until the end of the run.
84 cgg Move to ecco_cost.hyd.
85 Cgg(#ifdef OBCS_AGEOS_COST_CONTRIBUTION
86 cgg call cost_obcs_ageos ( myiter,mytime, mythid)
87 Cgg(#endif
88 end
  ViewVC Help
Powered by ViewVC 1.1.22