/[MITgcm]/MITgcm/pkg/exf/exf_getobcs.F
ViewVC logotype

Contents of /MITgcm/pkg/exf/exf_getobcs.F

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

Revision 1.4 - (show annotations) (download)
Tue Nov 12 20:34:41 2002 UTC (21 years, 6 months ago) by heimbach
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint47j_post, checkpoint48d_pre, branch-exfmods-tag, checkpoint47e_post, checkpoint47f_post, checkpoint47c_post, checkpoint50e_post, checkpoint50c_post, checkpoint47d_post, checkpoint47a_post, checkpoint47h_post, checkpoint48e_post, checkpoint48h_post, checkpoint48d_post, checkpoint50c_pre, checkpoint50d_pre, checkpoint48f_post, checkpoint47i_post, checkpoint48c_post, checkpoint47d_pre, checkpoint48, checkpoint49, checkpoint47b_post, checkpoint48i_post, checkpoint50, checkpoint50d_post, checkpoint47g_post, checkpoint48a_post, checkpoint50g_post, checkpoint50b_pre, checkpoint48b_post, checkpoint50b_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint48c_pre, checkpoint47, checkpoint50h_post, checkpoint50e_pre, checkpoint50i_post, checkpoint48g_post
Branch point for: branch-exfmods-curt
Changes since 1.3: +23 -20 lines 
Merging from release1_p8:
o exf:
  updated external forcing package
  - bug fixes carried over from ecco-branch
    (missing OBCS_OPTIONS.h in two routines)
  - enable easy to use "no forcing".
  - added exf I/O for atmospheric loading
  - added exf I/O for runoff data
  - transfered scaling between exf <-> MITgcm to exf namelist
  - removing old exfa stuff
1 #include "EXF_CPPOPTIONS.h"
2 #ifdef ALLOW_OBCS
3 # include "OBCS_OPTIONS.h"
4 #endif
5
6 subroutine exf_getobcs ( mycurrenttime
7 I , mycurrentiter
8 I , mythid
9 & )
10
11 c ==================================================================
12 c SUBROUTINE exf_getobcs
13 c ==================================================================
14 c
15 c o set open boundary conditions
16 c
17 c started: heimbach@mit.edu 01-May-2001
18
19 c ==================================================================
20 c SUBROUTINE exf_getobcs
21 c ==================================================================
22
23 implicit none
24
25 c == global variables ==
26
27 #include "EEPARAMS.h"
28 #include "SIZE.h"
29 #include "GRID.h"
30 #ifdef ALLOW_OBCS
31 #include "OBCS.h"
32 #endif
33 #include "exf_param.h"
34
35 c == routine arguments ==
36
37 _RL mycurrenttime
38 integer mycurrentiter
39 integer mythid
40
41 #ifdef ALLOW_OBCS
42
43 c == local variables ==
44
45 logical first, changed
46 integer count0, count1
47 _RL fac
48
49 c == end of interface ==
50
51 #ifdef ALLOW_OBCS_NORTH
52 call exf_getffieldrec(
53 I obcsNstartdate, obcsNperiod
54 O , fac, first, changed, count0, count1
55 I , mycurrenttime, mycurrentiter, mythid
56 & )
57
58 call exf_set_obcs_xz( OBNu, OBNu0, OBNu1, OBNufile, 'u'
59 I , fac, first, changed, count0, count1
60 I , mycurrenttime, mycurrentiter, mythid )
61 call exf_set_obcs_xz( OBNv, OBNv0, OBNv1, OBNvfile, 'v'
62 I , fac, first, changed, count0, count1
63 I , mycurrenttime, mycurrentiter, mythid )
64 call exf_set_obcs_xz( OBNt, OBNt0, OBNt1, OBNtfile, 's'
65 I , fac, first, changed, count0, count1
66 I , mycurrenttime, mycurrentiter, mythid )
67 call exf_set_obcs_xz( OBNs, OBNs0, OBNs1, OBNsfile, 's'
68 I , fac, first, changed, count0, count1
69 I , mycurrenttime, mycurrentiter, mythid )
70 #endif
71
72 #ifdef ALLOW_OBCS_SOUTH
73 call exf_getffieldrec(
74 I obcsSstartdate, obcsSperiod
75 O , fac, first, changed, count0, count1
76 I , mycurrenttime, mycurrentiter, mythid
77 & )
78
79 call exf_set_obcs_xz( OBSu, OBSu0, OBSu1, OBSufile, 'u'
80 I , fac, first, changed, count0, count1
81 I , mycurrenttime, mycurrentiter, mythid )
82 call exf_set_obcs_xz( OBSv, OBSv0, OBSv1, OBSvfile, 'v'
83 I , fac, first, changed, count0, count1
84 I , mycurrenttime, mycurrentiter, mythid )
85 call exf_set_obcs_xz( OBSt, OBSt0, OBSt1, OBStfile, 's'
86 I , fac, first, changed, count0, count1
87 I , mycurrenttime, mycurrentiter, mythid )
88 call exf_set_obcs_xz( OBSs, OBSs0, OBSs1, OBSsfile, 's'
89 I , fac, first, changed, count0, count1
90 I , mycurrenttime, mycurrentiter, mythid )
91
92 #endif
93
94 #ifdef ALLOW_OBCS_EAST
95 call exf_getffieldrec(
96 I obcsEstartdate, obcsEperiod
97 O , fac, first, changed, count0, count1
98 I , mycurrenttime, mycurrentiter, mythid
99 & )
100
101 call exf_set_obcs_yz( OBEu, OBEu0, OBEu1, OBEufile, 'u'
102 I , fac, first, changed, count0, count1
103 I , mycurrenttime, mycurrentiter, mythid )
104 call exf_set_obcs_yz( OBEv, OBEv0, OBEv1, OBEvfile, 'v'
105 I , fac, first, changed, count0, count1
106 I , mycurrenttime, mycurrentiter, mythid )
107 call exf_set_obcs_yz( OBEt, OBEt0, OBEt1, OBEtfile, 's'
108 I , fac, first, changed, count0, count1
109 I , mycurrenttime, mycurrentiter, mythid )
110 call exf_set_obcs_yz( OBEs, OBEs0, OBEs1, OBEsfile, 's'
111 I , fac, first, changed, count0, count1
112 I , mycurrenttime, mycurrentiter, mythid )
113
114 #endif
115
116 #ifdef ALLOW_OBCS_WEST
117 call exf_getffieldrec(
118 I obcsWstartdate, obcsWperiod
119 O , fac, first, changed, count0, count1
120 I , mycurrenttime, mycurrentiter, mythid
121 & )
122
123 call exf_set_obcs_yz( OBWu, OBWu0, OBWu1, OBWufile, 'u'
124 I , fac, first, changed, count0, count1
125 I , mycurrenttime, mycurrentiter, mythid )
126 call exf_set_obcs_yz( OBWv, OBWv0, OBWv1, OBWvfile, 'v'
127 I , fac, first, changed, count0, count1
128 I , mycurrenttime, mycurrentiter, mythid )
129 call exf_set_obcs_yz( OBWt, OBWt0, OBWt1, OBWtfile, 's'
130 I , fac, first, changed, count0, count1
131 I , mycurrenttime, mycurrentiter, mythid )
132 call exf_set_obcs_yz( OBWs, OBWs0, OBWs1, OBWsfile, 's'
133 I , fac, first, changed, count0, count1
134 I , mycurrenttime, mycurrentiter, mythid )
135
136 #endif
137
138 #ifdef ALLOW_OBCSN_CONTROL
139 call ctrl_getobcsn ( mycurrenttime, mycurrentiter, mythid )
140 #endif
141
142 #ifdef ALLOW_OBCSS_CONTROL
143 call ctrl_getobcss ( mycurrenttime, mycurrentiter, mythid )
144 #endif
145
146 #ifdef ALLOW_OBCSW_CONTROL
147 call ctrl_getobcsw ( mycurrenttime, mycurrentiter, mythid )
148 #endif
149
150 #ifdef ALLOW_OBCSE_CONTROL
151 call ctrl_getobcse ( mycurrenttime, mycurrentiter, mythid )
152 #endif
153
154
155 #endif /* ALLOW_OBCS */
156
157 end
158
  ViewVC Help
Powered by ViewVC 1.1.22