1 |
! |
module raddimlw |
2 |
! $Header: /home/cvsroot/LMDZ4/libf/phylmd/raddimlw.h,v 1.1.1.1 2004/05/19 12:53:09 lmdzadmin Exp $ |
|
3 |
! |
! From phylmd/raddimlw.h,v 1.1.1.1 2004/05/19 12:53:09 |
4 |
INTEGER NUA |
|
5 |
PARAMETER (NUA=24) |
implicit none |
6 |
INTEGER NTRA |
|
7 |
PARAMETER (NTRA=15) |
INTEGER NUA |
8 |
INTEGER Ninter |
PARAMETER (NUA=24) |
9 |
PARAMETER (Ninter=6) |
INTEGER NTRA |
10 |
INTEGER NG1, NG1P1 |
PARAMETER (NTRA=15) |
11 |
PARAMETER (NG1=2, NG1P1=NG1+1) |
INTEGER Ninter |
12 |
|
PARAMETER (Ninter=6) |
13 |
|
INTEGER NG1, NG1P1 |
14 |
|
PARAMETER (NG1=2, NG1P1=NG1+1) |
15 |
|
|
16 |
|
end module raddimlw |