source: LMDZ5/trunk/libf/phymar/yoewcou.F90 @ 2526

Last change on this file since 2526 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
Line 
1MODULE YOEWCOU
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
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
43INTEGER_M :: NLONW
44INTEGER_M :: NLATW
45INTEGER_M :: NLON1W
46INTEGER_M :: NLAT1W
47INTEGER_M :: NNORXW
48INTEGER_M :: NDURAT
49INTEGER_M :: NSTPW
50INTEGER_M :: NRESUM
51
52
53REAL_B :: RSOUTW
54REAL_B :: RNORTW
55REAL_B :: RDEGREW
56
57LOGICAL LWCOU
58LOGICAL LWCOU2W
59CHARACTER CBEGDAT*12
60
61!     ------------------------------------------------------------------
62END MODULE YOEWCOU
Note: See TracBrowser for help on using the repository browser.