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

Last change on this file since 846 was 846, checked in by maronga, 10 years ago

Last commit documented

  • Property svn:keywords set to Id
File size: 1.6 KB
Line 
1PROGRAM check_namelist_files
2
3!------------------------------------------------------------------------------!
4! Current revisions:
5! -----------------
6!
7!
8! Former revisions:
9! -----------------
10! $Id: check_namelist_files.f90 846 2012-03-07 10:26:21Z 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 and variable check_restart, which gives
36!-- information whether the p3d or the pd3f file shall be checked
37    READ (*,*,ERR=10,END=10)  numprocs, check_restart
3810  CONTINUE
39
40
41!
42!-- Read control parameters from NAMELIST files and read environment-variables1
43    CALL parin
44
45!
46!-- Determine processor topology and local array indices
47    CALL init_pegrid
48
49!
50!-- Generate grid parameters
51    CALL init_grid
52
53!
54!-- Check control parameters and deduce further quantities   
55    CALL check_parameters
56
57!
58!-- Check absolute temperature and pressure. Delete this call in case that
59!-- init_3d_model is compiled for the parameter file check
60    CALL init_cloud_physics
61
62 END PROGRAM check_namelist_files
Note: See TracBrowser for help on using the repository browser.