Last change
on this file since 5877 was
3326,
checked in by omamce, 7 years ago
|
O.M. : Utility to generate interpolatio weights for OASIS-MCT
|
File size:
399 bytes
|
Line | |
---|
1 | ! -*- Mode: f90 -*- |
---|
2 | MODULE mt_polyg |
---|
3 | !> Defines the polygone type |
---|
4 | USE poly_types |
---|
5 | USE mt_c2d |
---|
6 | !> JPOL is defined by the CPP phase (must be kept uppercase) |
---|
7 | INTEGER,PARAMETER :: maxpt = JPOL |
---|
8 | |
---|
9 | !> Polygone type |
---|
10 | TYPE :: polyg |
---|
11 | !> Number of polygon summits |
---|
12 | INTEGER :: n |
---|
13 | !> Polygon summits |
---|
14 | TYPE (c2d), DIMENSION (maxpt) :: pt |
---|
15 | END TYPE polyg |
---|
16 | END MODULE mt_polyg |
---|
Note: See
TracBrowser
for help on using the repository browser.