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

Diff of /MITgcm/verification/aim.5l_LatLon/code/external_forcing.F

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

revision 1.1 by jmc, Mon Apr 9 18:10:55 2001 UTC revision 1.2 by adcroft, Tue May 29 14:01:49 2001 UTC
# Line 0  Line 1 
1    C     $Header$
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    
48          RETURN
49          END
50    CStartOfInterface
51          SUBROUTINE EXTERNAL_FORCING_V(
52         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
53         I           myCurrentTime,myThid)
54    C     /==========================================================\
55    C     | S/R EXTERNAL_FORCING_V                                   |
56    C     | o Contains problem specific forcing for merid velocity.  |
57    C     |==========================================================|
58    C     | Adds terms to gV for forcing by external sources         |
59    C     | e.g. wind stress, bottom friction etc..................  |
60    C     \==========================================================/
61          IMPLICIT NONE
62    
63    C     == Global data ==
64    #include "SIZE.h"
65    #include "EEPARAMS.h"
66    #include "PARAMS.h"
67    #include "GRID.h"
68    #include "DYNVARS.h"
69    #include "FFIELDS.h"
70    
71    
72    C     == Routine arguments ==
73    C     iMin - Working range of tile for applying forcing.
74    C     iMax
75    C     jMin
76    C     jMax
77    C     kLev
78          INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
79          _RL myCurrentTime
80          INTEGER myThid
81    CEndOfInterface
82    C     == Local variables ==
83    C     Loop counters
84          INTEGER I, J
85    
86    C--   Forcing term
87    #ifdef ALLOW_AIM
88          IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_V( iMin, iMax, jMin, jMax,
89         &                                           bi,bj,kLev,
90         &                                           myCurrentTime, myThid )
91    #endif /* ALLOW_AIM */
92    
93          RETURN
94          END
95    CStartOfInterface
96          SUBROUTINE EXTERNAL_FORCING_T(
97         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
98         I           myCurrentTime,myThid)
99    C     /==========================================================\
100    C     | S/R EXTERNAL_FORCING_T                                   |
101    C     | o Contains problem specific forcing for temperature.     |
102    C     |==========================================================|
103    C     | Adds terms to gT for forcing by external sources         |
104    C     | e.g. heat flux, climatalogical relaxation..............  |
105    C     \==========================================================/
106          IMPLICIT NONE
107    
108    C     == Global data ==
109    #include "SIZE.h"
110    #include "EEPARAMS.h"
111    #include "PARAMS.h"
112    #include "GRID.h"
113    #include "DYNVARS.h"
114    
115    C     == Routine arguments ==
116    C     iMin - Working range of tile for applying forcing.
117    C     iMax
118    C     jMin
119    C     jMax
120    C     kLev
121          INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
122          _RL myCurrentTime
123          INTEGER myThid
124    CEndOfInterface
125    
126    C     == Local variables ==
127    C     Loop counters
128          INTEGER I, J
129    
130    C--   Forcing term
131    #ifdef ALLOW_AIM
132          IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_T( iMin, iMax,
133         &              jMin, jMax,bi,bj,kLev,
134         &              myCurrentTime, myThid )
135    #endif /* ALLOW_AIM */
136    
137          RETURN
138          END
139    CStartOfInterface
140          SUBROUTINE EXTERNAL_FORCING_S(
141         I           iMin, iMax, jMin, jMax,bi,bj,kLev,
142         I           myCurrentTime,myThid)
143    C     /==========================================================\
144    C     | S/R EXTERNAL_FORCING_S                                   |
145    C     | o Contains problem specific forcing for merid velocity.  |
146    C     |==========================================================|
147    C     | Adds terms to gS for forcing by external sources         |
148    C     | e.g. fresh-water flux, climatalogical relaxation.......  |
149    C     \==========================================================/
150          IMPLICIT NONE
151    
152    C     == Global data ==
153    #include "SIZE.h"
154    #include "EEPARAMS.h"
155    #include "PARAMS.h"
156    #include "GRID.h"
157    #include "DYNVARS.h"
158    #include "FFIELDS.h"
159    
160    C     == Routine arguments ==
161    C     iMin - Working range of tile for applying forcing.
162    C     iMax
163    C     Min
164    C     jMax
165    C     kLev
166          INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
167          _RL myCurrentTime
168          INTEGER myThid
169    CEndOfInterface
170    
171    C     == Local variables ==
172    C     Loop counters
173          INTEGER I, J
174    
175    C--   Forcing term
176    #ifdef ALLOW_AIM
177          IF ( useAIM ) CALL AIM_EXTERNAL_FORCING_S( iMin, iMax,
178         &                   jMin, jMax,bi,bj,kLev,
179         &                   myCurrentTime, myThid )
180    #endif /* ALLOW_AIM */
181    
182          RETURN
183          END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22