|
Last change
on this file since 5080 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
|
| Rev | Line | |
|---|
| [2089] | 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.
