open_all.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	open_all

Function/Subroutine Documentation

open_all()

subroutine open_all

(

)

Definition at line 41 of file open_all.f90.

!===============================================================================!
! OPEN FILES
! UNLESS OTHERWISE SPECIFED THE ROUTINES CALLED HERE ARE IN mod_input.F
!===============================================================================!
  USE control
  USE mod_input
  USE mod_nesting
  IMPLICIT NONE
  CHARACTER(LEN=160) :: FNAME
  LOGICAL :: FEXIST
  

  CALL nullify_file_pointers

  SELECT CASE(startup_type)
     !=================================================
     ! HOTSTART 
  CASE(startup_type_hotstart)
     !=================================================
     if(dbg_set(dbg_log)) then 
        WRITE(ipt,*)'!               OPEN INIT FILES FOR HOTSTART                       !'
        WRITE(ipt,*)'!                                                                !'
     end if
     
     CALL check_io_dirs
     
     CALL open_startup_file
     
     CALL open_forcing

     CALL open_new_output
          
     IF(nesting_on) CALL open_nesting_file
     
     !=================================================
     ! CRASHSTART 
  CASE(startup_type_crashrestart)
     !=================================================
     if(dbg_set(dbg_log)) then 
        WRITE(ipt,*)'!              OPENING FILES FOR CRASHRESTART                    !'
        WRITE(ipt,*)'!                                                                !'
     end if
 
     CALL check_io_dirs

     CALL open_crashstart
     
     CALL open_forcing
     
     IF(nesting_on) CALL open_nesting_file

     !=================================================
     ! COLDSTART 
  CASE(startup_type_coldstart)
     !=================================================
     if(dbg_set(dbg_log)) then 
        WRITE(ipt,*)'!              OPENING FILES FOR COLDSTART                       !'
        WRITE(ipt,*)'!                                                                !'
     end if
          

     CALL check_io_dirs

        ! MAKE SURE THE RUN FILE DOES NOT REQUEST A START FILE
        

     IF (startup_ts_type .eq. startup_type_observed) THEN
        CALL open_startup_file

     ELSE IF (startup_ts_type .eq. startup_type_setvalues) THEN
        CALL open_startup_file
        
     ELSE IF (startup_uv_type .eq. startup_type_setvalues) THEN
        CALL open_startup_file
        
     ELSE IF (startup_turb_type .eq. startup_type_setvalues) THEN
        CALL open_startup_file
     ELSE 
        if(dbg_set(dbg_log)) write(ipt,*) "! No Startup file needed fo&
             &r this cold start"

     END IF
    
     ! OPEN THE OTHER COLD START FILES (GRID,DEPTH SPONGE, ETC)
     IF (msr) CALL open_coldstart ! ONLY MASTER READS THESE FILES
     
     CALL open_forcing

     CALL open_new_output 

     IF(nesting_on) CALL open_nesting_file

  END SELECT

Here is the call graph for this function:

Here is the caller graph for this function: