/[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.1 - (hide annotations) (download)
Mon Jun 18 17:40:07 2001 UTC (22 years, 10 months ago) by cnh
Branch: MAIN
CVS Tags: checkpoint46n_post, checkpoint40pre1, checkpoint44b_post, checkpoint43a-release1mods, checkpoint44h_pre, checkpoint44e_post, release1_p12, release1_p13, release1_p10, release1_p11, release1_p16, release1_p17, release1_p14, release1_p15, checkpoint40pre9, release1_p13_pre, checkpoint46i_post, checkpoint40pre3, checkpoint44f_pre, checkpoint46f_post, checkpoint46l_pre, checkpoint46d_pre, release1_beta1, checkpoint46e_post, release1-branch_tutorials, checkpoint46c_post, checkpoint44g_post, checkpoint44h_post, checkpoint46l_post, checkpoint46k_post, checkpoint46e_pre, checkpoint45d_post, checkpoint46j_pre, checkpoint45b_post, checkpoint46b_pre, checkpoint40pre7, chkpt44a_pre, release1-branch-end, release1_final_v1, release1_p12_pre, checkpoint46c_pre, checkpoint43, checkpoint40, checkpoint41, checkpoint47, checkpoint44, checkpoint45, checkpoint44f_post, checkpoint40pre2, checkpoint40pre5, checkpoint40pre6, checkpoint40pre8, release1_b1, chkpt44d_post, checkpoint46h_pre, release1_p8, release1_p9, checkpoint46g_pre, release1_p2, release1_p3, release1_p4, release1_p6, checkpoint46a_post, chkpt44a_post, checkpoint44b_pre, release1_p1, checkpoint46m_post, checkpoint46j_post, checkpoint40pre4, checkpoint46a_pre, checkpoint45c_post, release1_p5, checkpoint44e_pre, release1_p7, checkpoint46b_post, checkpoint46d_post, checkpoint46g_post, checkpoint45a_post, checkpoint42, release1-branch_branchpoint, checkpoint46, checkpoint46h_post, release1_chkpt44d_post, chkpt44c_pre, chkpt44c_post
Branch point for: release1_final, release1, release1_coupled, release1-branch, release1_50yr 
Add to main branch of
  o CS atmos with AIM physics
  o Multi-threaded AIM physics for LatLon and CS tests
  o Tidied up monitor() output
1 cnh 1.1 C $Header: /u/gcmpack/models/MITgcmUV/verification/aim.5l_LatLon/code/Attic/external_forcing.F,v 1.1.2.1 2001/04/09 18:10:55 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    
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
  ViewVC Help
Powered by ViewVC 1.1.22