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

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

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

Revision 1.3 - (hide annotations) (download)
Fri Oct 31 20:35:32 2003 UTC (20 years, 7 months ago) by edhill
Branch: MAIN
CVS Tags: checkpoint52e_pre, checkpoint52h_pre, branch-netcdf, checkpoint51r_post, checkpoint52b_pre, checkpoint52, checkpoint52d_post, checkpoint52a_post, checkpoint52b_post, checkpoint52f_post, checkpoint52c_post, ecco_c52_e35, checkpoint52e_post, checkpoint52a_pre, checkpoint51t_post, checkpoint51u_post, checkpoint52f_pre, checkpoint51s_post
Branch point for: netcdf-sm0, branch-nonh
Changes since 1.2: +3 -2 lines 
 o remove all '#include "PACACKAGES_CONFIG.h"' from model/inc/* and cleanup
   the verification tests that this breaks
 o this was confirmed to work for the basic tests ("testreport -ieee") on
   shelley
1 edhill 1.3 C $Header: /u/u3/gcmpack/MITgcm/verification/aim.5l_LatLon/code/external_forcing.F,v 1.2 2001/05/29 14:01:49 adcroft Exp $
2     C $Name: $
3 adcroft 1.2
4 edhill 1.3 #include "PACKAGES_CONFIG.h"
5 adcroft 1.2 #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