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

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

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


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

1 C $Header: /u/gcmpack/models/MITgcmUV/verification/exp0/external_forcing.F,v 1.1 1998/11/06 22:44:49 cnh Exp $
2
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