source: palm/trunk/SOURCE/check_namelist_files.f90 @ 931

Last change on this file since 931 was 931, checked in by maronga, 12 years ago

enabled check of max_pr_user in namelist file check; disabled sleep command in mrun in silent mode (-v)

  • Property svn:keywords set to Id
File size: 1.9 KB
Line 
1PROGRAM check_namelist_files
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6! Check of max_pr_user implemented
7!
8! Former revisions:
9! -----------------
10! $Id: check_namelist_files.f90 931 2012-06-08 15:09:28Z maronga $
11!
12! 845 2012-03-07 10:23:05Z maronga
13! Added call to init_cloud_physics
14!
15! 807 2012-01-25 11:53:51Z maronga
16! Initial revision
17!
18! Description:
19! ------------
20! Perform namelist file check. The program is independent from PALM and used by
21! the shell script "mrun" to check the parameter files (e.g. p3d, p3df...) b
22! efore the job is submitted/started. Source code from the PALM model in used in
23! check_namelist_files by means of the cpp directive "__check". The compiled
24! program resides in the SCRIPTS folder as check_namelist_files.x.
25!------------------------------------------------------------------------------!
26
27
28    USE pegrid
29    USE control_parameters
30
31    IMPLICIT NONE
32
33
34!
35!-- Read number of processors, the variable check_restart and max_user_pr.
36!-- check_restart gives information whether the initalor the restart parameter
37!-- file must be checked. max_user_pr is usually set by read_var_list
38!-- (excluded in the namelist file check).
39    READ (*,*,ERR=10,END=10)  numprocs, check_restart, max_pr_user
4010  CONTINUE
41
42
43!
44!-- Read control parameters from NAMELIST files and read environment-variables1
45    CALL parin
46
47    OPEN( 11, FILE='parin_for_check', FORM='FORMATTED' )
48    WRITE(11, FMT='(I)'), max_pr_user
49    CLOSE(11)
50!
51!-- Determine processor topology and local array indicesy
52
53    CALL init_pegrid
54
55!
56!-- Generate grid parameters
57    CALL init_grid
58
59!
60!-- Check control parameters and deduce further quantities   
61    CALL check_parameters
62
63!
64!-- Check absolute temperature and pressure. Delete this call in case that
65!-- init_3d_model is compiled for the parameter file check
66    CALL init_cloud_physics
67
68 END PROGRAM check_namelist_files
Note: See TracBrowser for help on using the repository browser.