source: LMDZ5/branches/IPSLCM6.0.8/libf/phymar/parptrs.F90 @ 5455

Last change on this file since 5455 was 2160, checked in by Laurent Fairhead, 10 years ago

Merged trunk changes -r2070:2158 into testing branch. Compilation problems introduced by revision r2155 have been corrected by hand

File size: 499 bytes
Line 
1MODULE PARPTRS
2
3
4#include "tsmbkind.h"
5
6IMPLICIT NONE
7
8SAVE
9
10INTEGER_M,parameter:: max_satellites=6
11INTEGER_M,parameter:: max_ddrs=2
12INTEGER_M,parameter:: max_statid_len=8
13INTEGER_M,parameter:: NSYNOP=1
14INTEGER_M,parameter:: NAIREP=2
15INTEGER_M,parameter:: NSATOB=3
16INTEGER_M,parameter:: NDRIBU=4
17INTEGER_M,parameter:: NTEMP=5
18INTEGER_M,parameter:: NPILOT=6
19INTEGER_M,parameter:: NSATEM=7
20INTEGER_M,parameter:: NPAOB=8
21INTEGER_M,parameter:: NSCATT=9
22INTEGER_M,parameter:: NTOVS=10
23END MODULE PARPTRS
Note: See TracBrowser for help on using the repository browser.