namelist.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	namelist

Function/Subroutine Documentation

namelist()

subroutine namelist

(

)

Definition at line 41 of file namelist.f90.

  USE mod_utils
  USE control
  USE mod_input
  USE mod_nesting
  USE mod_station_timeseries  
  USE mod_sparse_timeseries

  IMPLICIT NONE


  !==============================================================================!
  ! SET DEFAULT VALUES IN NAME LIST                                                   
  !==============================================================================!
  CALL name_list_initialize

  CALL name_list_initialize_nest


  CALL station_name_list_initialize 

  ! IF FVCOM IS ONLY PRINTING A BLANK NAME LIST FOR A NEW CASE:
  if (blank_namelist) then
     CALL name_list_print



     CALL station_name_list_print 

     CALL pshutdown
  end if

  !==============================================================================!
  !   SETUP MODEL RUN PARAMETERS                                                 !
  !==============================================================================!

  !READ DATA IN THE NAME LIST FILE
  CALL name_list_read ! ALL PROCS READ THIS

  CALL name_list_read_nest
  IF(nesting_on .AND. serial)THEN
    IF(msr) WRITE(*,*) 'PLEASE USE MORE THAN ONE PROCESSOR TO RUN NESTING. STOP RUNNING...'
    CALL pstop
  END IF
  IF(ncnest_on .AND. serial)THEN
    IF(msr) WRITE(*,*) 'PLEASE USE MORE THAN ONE PROCESSOR TO RUN NCNEST. STOP RUNNING...'
    CALL pstop
  END IF



  CALL station_name_list_read

  !PRINT THE NAME LIST DATA TO THE SCREEN FOR THE LOG
  IF(dbg_set(dbg_log)) CALL name_list_print 

Here is the call graph for this function:

Here is the caller graph for this function: