verification/exp1/external_forcing.F

C $Header: /u/gcmpack/models/MITgcmUV/verification/exp1/external_forcing.F,v 1.1 1998/11/06 22:44:49 cnh Exp $

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE EXTERNAL_FORCING_U(
     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
     I           myCurrentTime,myThid)
C     /==========================================================\
C     | S/R EXTERNAL_FORCING_U                                   |
C     | o Contains problem specific forcing for zonal velocity.  |
C     |==========================================================|
C     | Adds terms to gU for forcing by external sources         |
C     | e.g. wind stress, bottom friction etc..................  |
C     \==========================================================/

C     == Global data ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "DYNVARS.h"

C     == Routine arguments ==
C     iMin - Working range of tile for applying forcing.
C     iMax
C     jMin
C     jMax
C     kLev
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
      INTEGER myCurrentTime, myThid
CEndOfInterface

      RETURN
      END
CStartOfInterface
      SUBROUTINE EXTERNAL_FORCING_V(
     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
     I           myCurrentTime,myThid)
C     /==========================================================\
C     | S/R EXTERNAL_FORCING_V                                   |
C     | o Contains problem specific forcing for merid velocity.  |
C     |==========================================================|
C     | Adds terms to gV for forcing by external sources         |
C     | e.g. wind stress, bottom friction etc..................  |
C     \==========================================================/

C     == Global data ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "DYNVARS.h"

C     == Routine arguments ==
C     iMin - Working range of tile for applying forcing.
C     iMax
C     jMin
C     jMax
C     kLev
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
      INTEGER myCurrentTime, myThid
CEndOfInterface

      RETURN
      END
CStartOfInterface
      SUBROUTINE EXTERNAL_FORCING_T(
     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
     I           myCurrentTime,myThid)
C     /==========================================================\
C     | S/R EXTERNAL_FORCING_T                                   |
C     | o Contains problem specific forcing for temperature.     |
C     |==========================================================|
C     | Adds terms to gT for forcing by external sources         |
C     | e.g. heat flux, climatalogical relaxation..............  |
C     \==========================================================/

C     == Global data ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "DYNVARS.h"
#include "FFIELDS.h"

C     == Routine arguments ==
C     iMin - Working range of tile for applying forcing.
C     iMax
C     jMin
C     jMax
C     kLev
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
      INTEGER myCurrentTime, myThid
CEndOfInterface

      RETURN
      END
CStartOfInterface
      SUBROUTINE EXTERNAL_FORCING_S(
     I           iMin, iMax, jMin, jMax,bi,bj,kLev,
     I           myCurrentTime,myThid)
C     /==========================================================\
C     | S/R EXTERNAL_FORCING_S                                   |
C     | o Contains problem specific forcing for merid velocity.  |
C     |==========================================================|
C     | Adds terms to gS for forcing by external sources         |
C     | e.g. fresh-water flux, climatalogical relaxation.......  |
C     \==========================================================/

C     == Global data ==
#include "SIZE.h"
#include "EEPARAMS.h"
#include "PARAMS.h"
#include "GRID.h"
#include "DYNVARS.h"

C     == Routine arguments ==
C     iMin - Working range of tile for applying forcing.
C     iMax
C     jMin
C     jMax
C     kLev
      INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
      INTEGER myCurrentTime, myThid
CEndOfInterface

      RETURN
      END
1	C $Header: /u/gcmpack/models/MITgcmUV/verification/exp1/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
24	C == Routine arguments ==
25	C iMin - Working range of tile for applying forcing.
26	C iMax
27	C jMin
28	C jMax
29	C kLev
30	INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
31	INTEGER myCurrentTime, myThid
32	CEndOfInterface
33
34	RETURN
35	END
36	CStartOfInterface
37	SUBROUTINE EXTERNAL_FORCING_V(
38	I iMin, iMax, jMin, jMax,bi,bj,kLev,
39	I myCurrentTime,myThid)
40	C /==========================================================\
41	C \| S/R EXTERNAL_FORCING_V \|
42	C \| o Contains problem specific forcing for merid velocity. \|
43	C \|==========================================================\|
44	C \| Adds terms to gV for forcing by external sources \|
45	C \| e.g. wind stress, bottom friction etc.................. \|
46	C \==========================================================/
47
48	C == Global data ==
49	#include "SIZE.h"
50	#include "EEPARAMS.h"
51	#include "PARAMS.h"
52	#include "GRID.h"
53	#include "DYNVARS.h"
54
55	C == Routine arguments ==
56	C iMin - Working range of tile for applying forcing.
57	C iMax
58	C jMin
59	C jMax
60	C kLev
61	INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
62	INTEGER myCurrentTime, myThid
63	CEndOfInterface
64
65	RETURN
66	END
67	CStartOfInterface
68	SUBROUTINE EXTERNAL_FORCING_T(
69	I iMin, iMax, jMin, jMax,bi,bj,kLev,
70	I myCurrentTime,myThid)
71	C /==========================================================\
72	C \| S/R EXTERNAL_FORCING_T \|
73	C \| o Contains problem specific forcing for temperature. \|
74	C \|==========================================================\|
75	C \| Adds terms to gT for forcing by external sources \|
76	C \| e.g. heat flux, climatalogical relaxation.............. \|
77	C \==========================================================/
78
79	C == Global data ==
80	#include "SIZE.h"
81	#include "EEPARAMS.h"
82	#include "PARAMS.h"
83	#include "GRID.h"
84	#include "DYNVARS.h"
85	#include "FFIELDS.h"
86
87	C == Routine arguments ==
88	C iMin - Working range of tile for applying forcing.
89	C iMax
90	C jMin
91	C jMax
92	C kLev
93	INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
94	INTEGER myCurrentTime, myThid
95	CEndOfInterface
96
97	RETURN
98	END
99	CStartOfInterface
100	SUBROUTINE EXTERNAL_FORCING_S(
101	I iMin, iMax, jMin, jMax,bi,bj,kLev,
102	I myCurrentTime,myThid)
103	C /==========================================================\
104	C \| S/R EXTERNAL_FORCING_S \|
105	C \| o Contains problem specific forcing for merid velocity. \|
106	C \|==========================================================\|
107	C \| Adds terms to gS for forcing by external sources \|
108	C \| e.g. fresh-water flux, climatalogical relaxation....... \|
109	C \==========================================================/
110
111	C == Global data ==
112	#include "SIZE.h"
113	#include "EEPARAMS.h"
114	#include "PARAMS.h"
115	#include "GRID.h"
116	#include "DYNVARS.h"
117
118	C == Routine arguments ==
119	C iMin - Working range of tile for applying forcing.
120	C iMax
121	C jMin
122	C jMax
123	C kLev
124	INTEGER iMin, iMax, jMin, jMax, kLev, bi, bj
125	INTEGER myCurrentTime, myThid
126	CEndOfInterface
127
128	RETURN
129	END