/[MITgcm]/MITgcm/verification/aim.5l_Equatorial_Channel/code/external_forcing.F
ViewVC logotype

Contents of /MITgcm/verification/aim.5l_Equatorial_Channel/code/external_forcing.F

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

Revision 1.5 - (show annotations) (download)
Sat Jan 24 20:41:26 2004 UTC (20 years, 3 months ago) by jmc
Branch: MAIN
CVS Tags: HEAD
Changes since 1.4: +1 -1 lines
FILE REMOVED 
update AIM Equatorial Channel experiment:
 * use standard aim_v23 pkg (instead of the old pkg/aim).
 * change the forcing (including a more a realistic SST field)
   to be symetric relatively to the Eq.
1 C $Header: /u/gcmpack/MITgcm/verification/aim.5l_Equatorial_Channel/code/external_forcing.F,v 1.4 2003/10/31 20:35:32 edhill Exp $
2 C $Name: $
3
4 #include "PACKAGES_CONFIG.h"
5 #include "CPP_OPTIONS.h"
6
7 CStartOfInterface
8 SUBROUTINE EXTERNAL_FORCING_U(
9 I iMin, iMax, jMin, jMax,bi,bj,kLev,
10 I myCurrentTime,myThid)
11 C /==========================================================\
12 C | S/R EXTERNAL_FORCING_U |
13 C | o Contains problem specific forcing for zonal velocity. |
14 C |==========================================================|
15 C | Adds terms to gU for forcing by external sources |
16 C | e.g. wind stress, bottom friction etc.................. |
17 C \==========================================================/
18 IMPLICIT NONE
19
20 C == Global data ==
21 #include "SIZE.h"
22 #include "EEPARAMS.h"
23 #include "PARAMS.h"
24 #include "GRID.h"
25 #include "DYNVARS.h"
26 #include "FFIELDS.h"
27 C == Routine arguments ==
28 C iMin - Working range of tile for applying forcing.
29 C iMax
30 C jMin
31 C jMax
32 C kLev
33 INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
34 _RL myCurrentTime
35 INTEGER myThid
36 CEndOfInterface
37
38 C == Local variables ==
39 C Loop counters
40 INTEGER I, J
41
42 C-- Forcing term
43 #ifdef ALLOW_AIM
44 IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_U( iMin, iMax, jMin, jMax,
45 & bi,bj,kLev,
46 & myCurrentTime, myThid )
47 #endif /* ALLOW_AIM */
48
49 RETURN
50 END
51 CStartOfInterface
52 SUBROUTINE EXTERNAL_FORCING_V(
53 I iMin, iMax, jMin, jMax,bi,bj,kLev,
54 I myCurrentTime,myThid)
55 C /==========================================================\
56 C | S/R EXTERNAL_FORCING_V |
57 C | o Contains problem specific forcing for merid velocity. |
58 C |==========================================================|
59 C | Adds terms to gV for forcing by external sources |
60 C | e.g. wind stress, bottom friction etc.................. |
61 C \==========================================================/
62 IMPLICIT NONE
63
64 C == Global data ==
65 #include "SIZE.h"
66 #include "EEPARAMS.h"
67 #include "PARAMS.h"
68 #include "GRID.h"
69 #include "DYNVARS.h"
70 #include "FFIELDS.h"
71
72
73 C == Routine arguments ==
74 C iMin - Working range of tile for applying forcing.
75 C iMax
76 C jMin
77 C jMax
78 C kLev
79 INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
80 _RL myCurrentTime
81 INTEGER myThid
82 CEndOfInterface
83 C == Local variables ==
84 C Loop counters
85 INTEGER I, J
86
87 C-- Forcing term
88 #ifdef ALLOW_AIM
89 IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_V( iMin, iMax, jMin, jMax,
90 & bi,bj,kLev,
91 & myCurrentTime, myThid )
92 #endif /* ALLOW_AIM */
93
94 RETURN
95 END
96 CStartOfInterface
97 SUBROUTINE EXTERNAL_FORCING_T(
98 I iMin, iMax, jMin, jMax,bi,bj,kLev,
99 I myCurrentTime,myThid)
100 C /==========================================================\
101 C | S/R EXTERNAL_FORCING_T |
102 C | o Contains problem specific forcing for temperature. |
103 C |==========================================================|
104 C | Adds terms to gT for forcing by external sources |
105 C | e.g. heat flux, climatalogical relaxation.............. |
106 C \==========================================================/
107 IMPLICIT NONE
108
109 C == Global data ==
110 #include "SIZE.h"
111 #include "EEPARAMS.h"
112 #include "PARAMS.h"
113 #include "GRID.h"
114 #include "DYNVARS.h"
115
116 C == Routine arguments ==
117 C iMin - Working range of tile for applying forcing.
118 C iMax
119 C jMin
120 C jMax
121 C kLev
122 INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
123 _RL myCurrentTime
124 INTEGER myThid
125 CEndOfInterface
126
127 C == Local variables ==
128 C Loop counters
129 INTEGER I, J
130
131 C-- Forcing term
132 #ifdef ALLOW_AIM
133 IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_T( iMin, iMax,
134 & jMin, jMax,bi,bj,kLev,
135 & myCurrentTime, myThid )
136 #endif /* ALLOW_AIM */
137
138 RETURN
139 END
140 CStartOfInterface
141 SUBROUTINE EXTERNAL_FORCING_S(
142 I iMin, iMax, jMin, jMax,bi,bj,kLev,
143 I myCurrentTime,myThid)
144 C /==========================================================\
145 C | S/R EXTERNAL_FORCING_S |
146 C | o Contains problem specific forcing for merid velocity. |
147 C |==========================================================|
148 C | Adds terms to gS for forcing by external sources |
149 C | e.g. fresh-water flux, climatalogical relaxation....... |
150 C \==========================================================/
151 IMPLICIT NONE
152
153 C == Global data ==
154 #include "SIZE.h"
155 #include "EEPARAMS.h"
156 #include "PARAMS.h"
157 #include "GRID.h"
158 #include "DYNVARS.h"
159 #include "FFIELDS.h"
160
161 C == Routine arguments ==
162 C iMin - Working range of tile for applying forcing.
163 C iMax
164 C Min
165 C jMax
166 C kLev
167 INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
168 _RL myCurrentTime
169 INTEGER myThid
170 CEndOfInterface
171
172 C == Local variables ==
173 C Loop counters
174 INTEGER I, J
175
176 C-- Forcing term
177 #ifdef ALLOW_AIM
178 IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_S( iMin, iMax,
179 & jMin, jMax,bi,bj,kLev,
180 & myCurrentTime, myThid )
181 #endif /* ALLOW_AIM */
182
183 RETURN
184 END
  ViewVC Help
Powered by ViewVC 1.1.22