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

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

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

Revision 1.2 - (show annotations) (download)
Mon Oct 11 16:38:53 2004 UTC (19 years, 9 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint57d_post, checkpoint57g_post, checkpoint57b_post, checkpoint57c_pre, checkpoint55j_post, checkpoint56b_post, checkpoint57e_post, checkpoint55h_post, checkpoint57g_pre, checkpoint56c_post, checkpoint57f_pre, checkpoint57a_post, checkpoint55g_post, checkpoint55f_post, checkpoint57a_pre, checkpoint55i_post, checkpoint57, checkpoint56, eckpoint57e_pre, checkpoint57f_post, checkpoint57c_post, checkpoint55e_post, checkpoint56a_post, checkpoint55d_post
Changes since 1.1: +27 -25 lines 
o ECCO specific cost function terms (up-to-date with 1x1 runs)
o ecco_cost_weights is modified to 1x1 runs
o modifs to allow observations to be read in as
  single file or yearly files
1 C $Header: /u/gcmpack/MITgcm/pkg/cost/Attic/ecco_cost.hyd.F,v 1.1.2.2 2002/04/04 10:58:58 heimbach Exp $
2
3 #include "COST_CPPOPTIONS.h"
4
5
6 subroutine cost_Hyd(
7 I myiter,
8 I mytime,
9 I mythid
10 & )
11
12 c ==================================================================
13 c SUBROUTINE cost_Hyd
14 c ==================================================================
15 c
16 c o Evaluate cost function contributions of temperature, salt, and
17 c sea surface temperature contributions.
18 c
19 c started: Christian Eckert eckert@mit.edu 30-Jun-1999
20 c
21 c changed: Christian Eckert eckert@mit.edu 25-Feb-2000
22 c
23 c - Restructured the code in order to create a package
24 c for the MITgcmUV.
25 c
26 c ==================================================================
27 c SUBROUTINE cost_Hyd
28 c ==================================================================
29
30 implicit none
31
32 c == global variables ==
33
34 c == routine arguments ==
35
36 integer myiter
37 _RL mytime
38 integer mythid
39
40 c == local variables ==
41
42
43 c == end of interface ==
44
45
46 #ifdef ALLOW_SST_COST_CONTRIBUTION
47 print *, 'ph-cost call cost_sst'
48 call cost_sst( myiter, mytime, mythid )
49 #endif
50
51 #ifdef ALLOW_ARGO_THETA_COST_CONTRIBUTION
52 print *, 'ph-cost call cost_argo_theta'
53 call cost_argo_theta ( myiter, mytime, mythid )
54 #endif
55
56 #ifdef ALLOW_CTDT_COST_CONTRIBUTION
57 print *, 'ph-cost call cost_ctdt'
58 call cost_ctdt ( myiter, mytime, mythid )
59 #endif
60
61 #ifdef ALLOW_XBT_COST_CONTRIBUTION
62 print *, 'ph-cost call cost_xbt'
63 call cost_xbt ( myiter, mytime, mythid )
64 #endif
65
66 #ifdef ALLOW_TMI_SST_COST_CONTRIBUTION
67 print *, 'ph-cost call cost_tmi'
68 call cost_tmi( myiter, mytime, mythid )
69 #endif
70
71 #ifdef ALLOW_SSS_COST_CONTRIBUTION
72 print *, 'ph-cost call cost_sss'
73 call cost_sss ( myiter, mytime, mythid )
74 #endif
75
76 #ifdef ALLOW_CTDS_COST_CONTRIBUTION
77 print *, 'ph-cost call cost_ctds'
78 call cost_ctds ( myiter, mytime, mythid )
79 #endif
80
81 #ifdef ALLOW_ARGO_SALT_COST_CONTRIBUTION
82 print *, 'ph-cost call cost_argo_salt'
83 call cost_argo_salt ( myiter, mytime, mythid )
84 #endif
85
86 #ifdef ALLOW_THETA0_COST_CONTRIBUTION
87 print *, 'ph-cost call cost_theta0'
88 call cost_theta0 ( myiter, mytime, mythid )
89 #endif
90
91 #ifdef ALLOW_SALT0_COST_CONTRIBUTION
92 print *, 'ph-cost call cost_salt0'
93 call cost_salt0 ( myiter, mytime, mythid )
94 #endif
95
96 #ifdef ALLOW_THETA_COST_CONTRIBUTION
97 print *, 'ph-cost call cost_theta'
98 call cost_theta ( myiter, mytime, mythid )
99 #endif
100
101 #ifdef ALLOW_SALT_COST_CONTRIBUTION
102 print *, 'ph-cost call cost_salt'
103 call cost_salt ( myiter, mytime, mythid )
104 #endif
105
106 end
  ViewVC Help
Powered by ViewVC 1.1.22