|
Last change
on this file since 2902 was
2779,
checked in by romain.vande, 3 years ago
|
|
LMDZ_COMMON:
First commit of PEM. Small writting improvements will follow.
Only works with GCM slopes parametrisation of Lucas L.
Example to compile : ./makelmdz_fcm -arch X64_OCCIGEN -arch_path ../ARCH -p mars -d 32x24x26 pem
RV
|
|
File size:
478 bytes
|
| Line | |
|---|
| 1 | MODULE dimension_mod |
|---|
| 2 | |
|---|
| 3 | IMPLICIT NONE |
|---|
| 4 | INTEGER,SAVE :: x |
|---|
| 5 | !$OMP THREADPRIVATE(x) |
|---|
| 6 | INTEGER,SAVE :: y |
|---|
| 7 | !$OMP THREADPRIVATE(y) |
|---|
| 8 | INTEGER,SAVE :: z |
|---|
| 9 | !$OMP THREADPRIVATE(z) |
|---|
| 10 | |
|---|
| 11 | CONTAINS |
|---|
| 12 | |
|---|
| 13 | SUBROUTINE init_dim(x_, y_, z_) |
|---|
| 14 | USE ioipsl_getin_p_mod, ONLY : getin_p |
|---|
| 15 | IMPLICIT NONE |
|---|
| 16 | INTEGER,INTENT(IN) :: x_ |
|---|
| 17 | INTEGER,INTENT(IN) :: y_ |
|---|
| 18 | INTEGER,INTENT(IN) :: z_ |
|---|
| 19 | |
|---|
| 20 | x=x_ |
|---|
| 21 | y=y_ |
|---|
| 22 | z=z_ |
|---|
| 23 | |
|---|
| 24 | END SUBROUTINE init_dim |
|---|
| 25 | |
|---|
| 26 | END MODULE dimension_mod |
|---|
Note: See
TracBrowser
for help on using the repository browser.
