Last change
on this file since 3891 was
2089,
checked in by Laurent Fairhead, 10 years ago
|
Inclusion de la physique de MAR
Integration of MAR physics
|
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.