/[MITgcm]/MITgcm_contrib/AITCZ/code/external_forcing.F
ViewVC logotype

Contents of /MITgcm_contrib/AITCZ/code/external_forcing.F

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


Revision 1.1 - (show annotations) (download)
Wed Aug 20 15:24:59 2003 UTC (21 years, 11 months ago) by czaja
Branch: MAIN
CVS Tags: HEAD
Initial creation of Arnaud's simple coupled simulation.

1 C $Header: /u/gcmpack/models/MITgcmUV/verification/aim.5l_Equatorial_Channel/code/external_forcing.F,v 1.2.2.1 2001/03/30 23:31:46 jmc Exp $
2 C $Name: $
3
4 #include "CPP_OPTIONS.h"
5
6 CStartOfInterface
7 SUBROUTINE EXTERNAL_FORCING_U(
8 I iMin, iMax, jMin, jMax,bi,bj,kLev,
9 I myCurrentTime,myThid)
10 C /==========================================================\
11 C | S/R EXTERNAL_FORCING_U |
12 C | o Contains problem specific forcing for zonal velocity. |
13 C |==========================================================|
14 C | Adds terms to gU for forcing by external sources |
15 C | e.g. wind stress, bottom friction etc.................. |
16 C \==========================================================/
17 IMPLICIT NONE
18
19 C == Global data ==
20 #include "SIZE.h"
21 #include "EEPARAMS.h"
22 #include "PARAMS.h"
23 #include "GRID.h"
24 #include "DYNVARS.h"
25 #include "FFIELDS.h"
26 C == Routine arguments ==
27 C iMin - Working range of tile for applying forcing.
28 C iMax
29 C jMin
30 C jMax
31 C kLev
32 INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
33 _RL myCurrentTime
34 INTEGER myThid
35 CEndOfInterface
36
37 C == Local variables ==
38 C Loop counters
39 INTEGER I, J
40
41 C-- Forcing term
42 #ifdef ALLOW_AIM
43 IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_U( iMin, iMax, jMin, jMax,
44 & bi,bj,kLev,
45 & myCurrentTime, myThid )
46 #endif /* ALLOW_AIM */
47 #ifdef ALLOW_MITPHYS
48 IF ( useMITPHYS )
49 & CALL MITPHYS_EXTERNAL_FORCING_U( iMin, iMax, jMin, jMax,
50 & bi,bj,kLev,
51 & myCurrentTime, myThid )
52 #endif /* ALLOW_MITPHYS */
53
54 RETURN
55 END
56 CStartOfInterface
57 SUBROUTINE EXTERNAL_FORCING_V(
58 I iMin, iMax, jMin, jMax,bi,bj,kLev,
59 I myCurrentTime,myThid)
60 C /==========================================================\
61 C | S/R EXTERNAL_FORCING_V |
62 C | o Contains problem specific forcing for merid velocity. |
63 C |==========================================================|
64 C | Adds terms to gV for forcing by external sources |
65 C | e.g. wind stress, bottom friction etc.................. |
66 C \==========================================================/
67 IMPLICIT NONE
68
69 C == Global data ==
70 #include "SIZE.h"
71 #include "EEPARAMS.h"
72 #include "PARAMS.h"
73 #include "GRID.h"
74 #include "DYNVARS.h"
75 #include "FFIELDS.h"
76
77
78 C == Routine arguments ==
79 C iMin - Working range of tile for applying forcing.
80 C iMax
81 C jMin
82 C jMax
83 C kLev
84 INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
85 _RL myCurrentTime
86 INTEGER myThid
87 CEndOfInterface
88 C == Local variables ==
89 C Loop counters
90 INTEGER I, J
91
92 C-- Forcing term
93 #ifdef ALLOW_AIM
94 IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_V( iMin, iMax, jMin, jMax,
95 & bi,bj,kLev,
96 & myCurrentTime, myThid )
97 #endif /* ALLOW_AIM */
98 #ifdef ALLOW_MITPHYS
99 IF ( useMITPHYS )
100 & CALL MITPHYS_EXTERNAL_FORCING_V( iMin, iMax, jMin, jMax,
101 & bi,bj,kLev,
102 & myCurrentTime, myThid )
103 #endif /* ALLOW_MITPHYS */
104
105 RETURN
106 END
107 CStartOfInterface
108 SUBROUTINE EXTERNAL_FORCING_T(
109 I iMin, iMax, jMin, jMax,bi,bj,kLev,
110 I myCurrentTime,myThid)
111 C /==========================================================\
112 C | S/R EXTERNAL_FORCING_T |
113 C | o Contains problem specific forcing for temperature. |
114 C |==========================================================|
115 C | Adds terms to gT for forcing by external sources |
116 C | e.g. heat flux, climatalogical relaxation.............. |
117 C \==========================================================/
118 IMPLICIT NONE
119
120 C == Global data ==
121 #include "SIZE.h"
122 #include "EEPARAMS.h"
123 #include "PARAMS.h"
124 #include "GRID.h"
125 #include "DYNVARS.h"
126
127 C == Routine arguments ==
128 C iMin - Working range of tile for applying forcing.
129 C iMax
130 C jMin
131 C jMax
132 C kLev
133 INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
134 _RL myCurrentTime
135 INTEGER myThid
136 CEndOfInterface
137
138 C == Local variables ==
139 C Loop counters
140 INTEGER I, J
141
142 C-- Forcing term
143 #ifdef ALLOW_AIM
144 IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_T( iMin, iMax,
145 & jMin, jMax,bi,bj,kLev,
146 & myCurrentTime, myThid )
147 #endif /* ALLOW_AIM */
148 #ifdef ALLOW_MITPHYS
149 IF ( useMITPHYS )
150 & CALL MITPHYS_EXTERNAL_FORCING_T( iMin, iMax,
151 & jMin, jMax,bi,bj,kLev,
152 & myCurrentTime, myThid )
153 #endif /* ALLOW_MITPHYS */
154
155 RETURN
156 END
157 CStartOfInterface
158 SUBROUTINE EXTERNAL_FORCING_S(
159 I iMin, iMax, jMin, jMax,bi,bj,kLev,
160 I myCurrentTime,myThid)
161 C /==========================================================\
162 C | S/R EXTERNAL_FORCING_S |
163 C | o Contains problem specific forcing for merid velocity. |
164 C |==========================================================|
165 C | Adds terms to gS for forcing by external sources |
166 C | e.g. fresh-water flux, climatalogical relaxation....... |
167 C \==========================================================/
168 IMPLICIT NONE
169
170 C == Global data ==
171 #include "SIZE.h"
172 #include "EEPARAMS.h"
173 #include "PARAMS.h"
174 #include "GRID.h"
175 #include "DYNVARS.h"
176 #include "FFIELDS.h"
177
178 C == Routine arguments ==
179 C iMin - Working range of tile for applying forcing.
180 C iMax
181 C Min
182 C jMax
183 C kLev
184 INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
185 _RL myCurrentTime
186 INTEGER myThid
187 CEndOfInterface
188
189 C == Local variables ==
190 C Loop counters
191 INTEGER I, J
192
193 C-- Forcing term
194 #ifdef ALLOW_AIM
195 IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_S( iMin, iMax,
196 & jMin, jMax,bi,bj,kLev,
197 & myCurrentTime, myThid )
198 #endif /* ALLOW_AIM */
199 #ifdef ALLOW_MITPHYS
200 IF ( useMITPHYS )
201 & CALL MITPHYS_EXTERNAL_FORCING_S( iMin, iMax,
202 & jMin, jMax,bi,bj,kLev,
203 & myCurrentTime, myThid )
204 #endif /* ALLOW_MITPHYS */
205
206 RETURN
207 END

  ViewVC Help
Powered by ViewVC 1.1.22