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

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

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

Revision 1.2 - (hide annotations) (download)
Fri Nov 22 17:20:09 2002 UTC (21 years, 5 months ago) by jmc
Branch: MAIN
CVS Tags: checkpoint51k_post, checkpoint47j_post, checkpoint48d_pre, checkpoint51j_post, branch-exfmods-tag, checkpoint47e_post, checkpoint47i_post, checkpoint47f_post, checkpoint47c_post, checkpoint50e_post, checkpoint50c_post, checkpoint51n_pre, checkpoint47d_post, checkpoint47a_post, checkpoint48e_post, checkpoint48d_post, checkpoint50g_post, branchpoint-genmake2, branch-netcdf, checkpoint48f_post, checkpoint51r_post, checkpoint52b_pre, checkpoint51o_pre, checkpoint51i_post, checkpoint48c_post, checkpoint51e_post, checkpoint51b_post, checkpoint51l_pre, checkpoint47d_pre, checkpoint48, checkpoint49, checkpoint47b_post, checkpoint51l_post, checkpoint48i_post, checkpoint51o_post, checkpoint50, checkpoint51f_pre, checkpoint48h_post, checkpoint51q_post, checkpoint50d_pre, checkpoint51, checkpoint47h_post, checkpoint52, checkpoint50d_post, checkpoint51b_pre, checkpoint52a_post, checkpoint47g_post, checkpoint52b_post, checkpoint52c_post, checkpoint51h_pre, checkpoint50c_pre, checkpoint50b_pre, checkpoint51g_post, ecco_c52_e35, checkpoint51f_post, checkpoint48b_post, checkpoint50b_post, checkpoint51c_post, checkpoint50f_post, checkpoint50a_post, checkpoint50f_pre, checkpoint52a_pre, checkpoint51d_post, checkpoint48c_pre, checkpoint51t_post, checkpoint51a_post, checkpoint50e_pre, checkpoint50i_post, checkpoint51p_post, checkpoint51n_post, checkpoint48g_post, checkpoint51i_pre, checkpoint51u_post, checkpoint48a_post, checkpoint51m_post, checkpoint51s_post
Branch point for: branch-genmake2, branch-exfmods-curt, branch-nonh, tg2-branch, checkpoint51n_branch
Changes since 1.1: +5 -5 lines 
use aim_v23 pkg with same NCEP input files as before
1 jmc 1.2 C $Header: /u/gcmpack/MITgcm/verification/aim.5l_cs/code/external_forcing.F,v 1.1 2001/06/18 17:40:07 cnh Exp $
2 cnh 1.1 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 jmc 1.2 IF ( useAIM ) CALL AIM_TENDENCY_APPLY_U( iMin, iMax, jMin, jMax,
44 cnh 1.1 & 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 jmc 1.2 IF ( useAIM ) CALL AIM_TENDENCY_APPLY_V( iMin, iMax, jMin, jMax,
89 cnh 1.1 & 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 jmc 1.2 IF ( useAIM ) CALL AIM_TENDENCY_APPLY_T( iMin, iMax,
133 cnh 1.1 & 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 jmc 1.2 IF ( useAIM ) CALL AIM_TENDENCY_APPLY_S( iMin, iMax,
178 cnh 1.1 & jMin, jMax,bi,bj,kLev,
179     & myCurrentTime, myThid )
180     #endif /* ALLOW_AIM */
181    
182     RETURN
183     END
  ViewVC Help
Powered by ViewVC 1.1.22