/[MITgcm]/MITgcm/verification/exp0/external_forcing.F
ViewVC logotype

Annotation of /MITgcm/verification/exp0/external_forcing.F

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


Revision 1.2 - (hide annotations) (download)
Mon Dec 14 23:17:23 1998 UTC (25 years, 3 months ago) by adcroft
Branch: MAIN
CVS Tags: HEAD
Changes since 1.1: +1 -1 lines
FILE REMOVED
Restructuring of verification experiments.

1 adcroft 1.2 C $Header: /u/gcmpack/models/MITgcmUV/verification/exp0/external_forcing.F,v 1.1 1998/11/06 22:44:49 cnh Exp $
2 cnh 1.1
3     #include "CPP_OPTIONS.h"
4    
5     CStartOfInterface
6     SUBROUTINE EXTERNAL_FORCING_U(
7     I iMin, iMax, jMin, jMax,bi,bj,kLev,
8     I myCurrentTime,myThid)
9     C /==========================================================\
10     C | S/R EXTERNAL_FORCING_U |
11     C | o Contains problem specific forcing for zonal velocity. |
12     C |==========================================================|
13     C | Adds terms to gU for forcing by external sources |
14     C | e.g. wind stress, bottom friction etc.................. |
15     C \==========================================================/
16    
17     C == Global data ==
18     #include "SIZE.h"
19     #include "EEPARAMS.h"
20     #include "PARAMS.h"
21     #include "GRID.h"
22     #include "DYNVARS.h"
23     #include "FFIELDS.h"
24    
25     C == Routine arguments ==
26     C iMin - Working range of tile for applying forcing.
27     C iMax
28     C jMin
29     C jMax
30     C kLev
31     INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
32     INTEGER myCurrentTime, myThid
33     CEndOfInterface
34    
35     C-- Forcing term
36     C Add windstress momentum impulse into the top-layer
37     IF ( kLev .EQ. 1 ) THEN
38     DO j=jMin,jMax
39     DO i=iMin,iMax
40     gU(i,j,k,bi,bj) = gU(i,j,k,bi,bj)
41     & + uForcFac*fu(i,j,bi,bj)*_maskW(i,j,k,bi,bj)
42     ENDDO
43     ENDDO
44     ENDIF
45    
46     RETURN
47     END
48     CStartOfInterface
49     SUBROUTINE EXTERNAL_FORCING_V(
50     I iMin, iMax, jMin, jMax,bi,bj,kLev,
51     I myCurrentTime,myThid)
52     C /==========================================================\
53     C | S/R EXTERNAL_FORCING_V |
54     C | o Contains problem specific forcing for merid velocity. |
55     C |==========================================================|
56     C | Adds terms to gV for forcing by external sources |
57     C | e.g. wind stress, bottom friction etc.................. |
58     C \==========================================================/
59    
60     C == Global data ==
61     #include "SIZE.h"
62     #include "EEPARAMS.h"
63     #include "PARAMS.h"
64     #include "GRID.h"
65     #include "DYNVARS.h"
66    
67     C == Routine arguments ==
68     C iMin - Working range of tile for applying forcing.
69     C iMax
70     C jMin
71     C jMax
72     C kLev
73     INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
74     INTEGER myCurrentTime, myThid
75     CEndOfInterface
76    
77     RETURN
78     END
79     CStartOfInterface
80     SUBROUTINE EXTERNAL_FORCING_T(
81     I iMin, iMax, jMin, jMax,bi,bj,kLev,
82     I myCurrentTime,myThid)
83     C /==========================================================\
84     C | S/R EXTERNAL_FORCING_T |
85     C | o Contains problem specific forcing for temperature. |
86     C |==========================================================|
87     C | Adds terms to gT for forcing by external sources |
88     C | e.g. heat flux, climatalogical relaxation.............. |
89     C \==========================================================/
90    
91     C == Global data ==
92     #include "SIZE.h"
93     #include "EEPARAMS.h"
94     #include "PARAMS.h"
95     #include "GRID.h"
96     #include "DYNVARS.h"
97     #include "FFIELDS.h"
98    
99     C == Routine arguments ==
100     C iMin - Working range of tile for applying forcing.
101     C iMax
102     C jMin
103     C jMax
104     C kLev
105     INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
106     INTEGER myCurrentTime, myThid
107     CEndOfInterface
108    
109     RETURN
110     END
111     CStartOfInterface
112     SUBROUTINE EXTERNAL_FORCING_S(
113     I iMin, iMax, jMin, jMax,bi,bj,kLev,
114     I myCurrentTime,myThid)
115     C /==========================================================\
116     C | S/R EXTERNAL_FORCING_S |
117     C | o Contains problem specific forcing for merid velocity. |
118     C |==========================================================|
119     C | Adds terms to gS for forcing by external sources |
120     C | e.g. fresh-water flux, climatalogical relaxation....... |
121     C \==========================================================/
122    
123     C == Global data ==
124     #include "SIZE.h"
125     #include "EEPARAMS.h"
126     #include "PARAMS.h"
127     #include "GRID.h"
128     #include "DYNVARS.h"
129    
130     C == Routine arguments ==
131     C iMin - Working range of tile for applying forcing.
132     C iMax
133     C jMin
134     C jMax
135     C kLev
136     INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
137     INTEGER myCurrentTime, myThid
138     CEndOfInterface
139    
140     RETURN
141     END

  ViewVC Help
Powered by ViewVC 1.1.22