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

PROGRAM check_namelist_files

!------------------------------------------------------------------------------!
! Current revisions:
! -----------------
!
!
! Former revisions:
! -----------------
! $Id: check_namelist_files.f90 846 2012-03-07 10:26:21Z franke $
!
! 845 2012-03-07 10:23:05Z maronga
! Added call to init_cloud_physics
!
! 807 2012-01-25 11:53:51Z maronga
! Initial revision
!
! Description:
! ------------
! Perform namelist file check. The program is independent from PALM and used by 
! the shell script "mrun" to check the parameter files (e.g. p3d, p3df...) b
! efore the job is submitted/started. Source code from the PALM model in used in 
! check_namelist_files by means of the cpp directive "__check". The compiled
! program resides in the SCRIPTS folder as check_namelist_files.x.
!------------------------------------------------------------------------------!


    USE pegrid
    USE control_parameters

    IMPLICIT NONE


!
!-- Read number of processors and variable check_restart, which gives 
!-- information whether the p3d or the pd3f file shall be checked
    READ (*,*,ERR=10,END=10)  numprocs, check_restart
10  CONTINUE


!
!-- Read control parameters from NAMELIST files and read environment-variables1
    CALL parin

!
!-- Determine processor topology and local array indices
    CALL init_pegrid

!
!-- Generate grid parameters
    CALL init_grid

!
!-- Check control parameters and deduce further quantities    
    CALL check_parameters

!
!-- Check absolute temperature and pressure. Delete this call in case that
!-- init_3d_model is compiled for the parameter file check
    CALL init_cloud_physics

 END PROGRAM check_namelist_files