Last change
on this file since 3189 was
2160,
checked in by Laurent Fairhead, 10 years ago
|
Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand
|
File size:
2.0 KB
|
Line | |
---|
1 | MODULE YOEWCOU |
---|
2 | |
---|
3 | |
---|
4 | #include "tsmbkind.h" |
---|
5 | |
---|
6 | IMPLICIT NONE |
---|
7 | |
---|
8 | SAVE |
---|
9 | |
---|
10 | |
---|
11 | !* ** *YOEWCOU* - VARIABLES FOR COUPLING WITH THE WAVE MODEL |
---|
12 | |
---|
13 | ! P. VITERBO E.C.M.W.F. 07/10/88 |
---|
14 | ! P. VITERBO E.C.M.W.F. 03/02/92 |
---|
15 | ! J. DOYLE E.C.M.W.F. 21/11/96 |
---|
16 | ! J. BIDLOT E.C.M.W.F. 13/06/97 |
---|
17 | ! J. BIDLOT E.C.M.W.F. 11/08/98 |
---|
18 | |
---|
19 | ! NAME TYPE PURPOSE |
---|
20 | ! ---- ---- ------- |
---|
21 | |
---|
22 | ! *NLONW* INTEGER NUMBER OF POINTS IN A LATITUDE LINE IN |
---|
23 | ! THE WAVE MODEL |
---|
24 | ! *NLATW* INTEGER NUMBER OF LATITUDES IN THE WAVE MODEL. |
---|
25 | ! *NLON1W* INTEGER *NLONW* |
---|
26 | ! *NLAT1W* INTEGER TOTAL NUMBER OF LATITUDES WITH THE WAVE |
---|
27 | ! MODEL RESOLUTION. |
---|
28 | ! *NNORXW* INTEGER NUMBER OF EXTRA POINTS NORTHWARDS OF THE |
---|
29 | ! NORTHERN BOUNDARY OF THE WAVE MODEL. |
---|
30 | ! *CBEGDAT* CHARACTER INITIAL DATE OF FORECAST (YYYYMMDDHHmm) |
---|
31 | ! *NDURAT* INTEGER DURATION (IN MINUTES) OF TOTAL WAVE INTEGRATION |
---|
32 | ! (OR FORECAST TIME IN MINUTES). |
---|
33 | ! *NSTPW* INTEGER FREQUENCY OF CALL TO THE WAVE MODEL. |
---|
34 | ! *NRESUM* INTEGER TIME STEP OF A RESTART EVENT |
---|
35 | ! *LWCOU* LOGICAL TRUE IF THE WAVE MODEL IS TO BE RUN. |
---|
36 | ! *LWCOU2W* LOGICAL TRUE IF TWO-WAY INTERACTION WITH THE WAVE MODEL. |
---|
37 | ! FALSE IF ONE-WAY INTERACTION WITH THE WAVE MODEL |
---|
38 | ! *RSOUTW* REAL SOUTH BOUNDARY OF THE WAVE MODEL. |
---|
39 | ! *RNORTW* REAL NORTH BOUNDARY OF THE WAVE MODEL. |
---|
40 | ! *RDEGREW* REAL RESOLUTION OF THE WAVE MODEL (DEGREES). |
---|
41 | |
---|
42 | |
---|
43 | INTEGER_M :: NLONW |
---|
44 | INTEGER_M :: NLATW |
---|
45 | INTEGER_M :: NLON1W |
---|
46 | INTEGER_M :: NLAT1W |
---|
47 | INTEGER_M :: NNORXW |
---|
48 | INTEGER_M :: NDURAT |
---|
49 | INTEGER_M :: NSTPW |
---|
50 | INTEGER_M :: NRESUM |
---|
51 | |
---|
52 | |
---|
53 | REAL_B :: RSOUTW |
---|
54 | REAL_B :: RNORTW |
---|
55 | REAL_B :: RDEGREW |
---|
56 | |
---|
57 | LOGICAL LWCOU |
---|
58 | LOGICAL LWCOU2W |
---|
59 | CHARACTER CBEGDAT*12 |
---|
60 | |
---|
61 | ! ------------------------------------------------------------------ |
---|
62 | END MODULE YOEWCOU |
---|
Note: See
TracBrowser
for help on using the repository browser.