startup_type.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	set_startup_type

Function/Subroutine Documentation

set_startup_type()

subroutine set_startup_type

(

)

Definition at line 41 of file startup_type.f90.

  USE control
  USE mod_utils
  IMPLICIT NONE
  INTEGER :: II

  IF(startup_type .EQ. startup_type_forecast) THEN
     forecast_mode = .true.
     
     IF (dbg_set(dbg_log)) then
        WRITE(ipt,*) "! ======================================================="
        WRITE(ipt,*) "!!!!!!      STARTING FVCOM FORECAST MODE            !!!!!"
        WRITE(ipt,*) "! ======================================================="
     END IF
     startup_type = startup_type_crashrestart


  ELSE
     forecast_mode = .false.
  END IF



  IF(cmdln_restart)THEN

     IF (forecast_mode) THEN
        CALL warning("CRASH RESTART DOES NOT WORK IN FORECAST MODE!")

     ELSE
        IF (dbg_set(dbg_log)) then
           WRITE(ipt,*) "! ======================================================="
           WRITE(ipt,*) "!!!!!!OVER RIDING NAMELIST WITH COMMAND LINE RESTART!!!!!"
           WRITE(ipt,*) "! ======================================================="
        END IF
        startup_type = startup_type_crashrestart
     END IF
  END IF



  SELECT CASE(startup_type)
     !=================================================
     ! HOTSTART 
  CASE(startup_type_hotstart)
     !=================================================
     if(dbg_set(dbg_log)) then 
        WRITE(ipt,*)'!               RUNNING HOTSTART                                 !'
        WRITE(ipt,*)'!                                                                !'
     end if
     
          
     !=================================================
     ! CRASHSTART 
  CASE(startup_type_crashrestart)
     !=================================================

     IF (.not. forecast_mode) THEN
        if(dbg_set(dbg_log)) then 
           WRITE(ipt,*)'!              RUNNING CRASHRESTART                              !'
           WRITE(ipt,*)'!                                                                !'
        end if
     END IF

     startup_ts_type = startup_type_setvalues
     startup_uv_type = startup_type_setvalues
     startup_turb_type = startup_type_setvalues

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

  END SELECT
  
  ! CHECK FOR UNKNOW STARTUP TYPES


  SELECT CASE (startup_uv_type)
  CASE (startup_type_observed)
     CALL fatal_error("I DON'T KNOW HOW TO DO THAT KIND OF STARTUP")
  CASE(startup_type_linear) 
     CALL fatal_error("I DON'T KNOW HOW TO DO THAT KIND OF STARTUP")
  CASE(startup_type_constant)
     !OKAY 
     !CALL FATAL_ERROR("I DON'T KNOW HOW TO DO THAT KIND OF STARTUP")
  CASE(startup_type_default)
     ! OKAY
  CASE(startup_type_setvalues)
     ! OKAY
  CASE DEFAULT
     CALL fatal_error("UNKNOWN STARTUP_UV_TYPE")
  END SELECT



  SELECT CASE(startup_turb_type)
  CASE(startup_type_observed) 
     CALL fatal_error("I DON'T KNOW HOW TO DO THAT KIND OF STARTUP")
  CASE(startup_type_linear)
     CALL fatal_error("I DON'T KNOW HOW TO DO THAT KIND OF STARTUP")
  CASE(startup_type_constant)
     CALL fatal_error("I DON'T KNOW HOW TO DO THAT KIND OF STARTUP")
  CASE(startup_type_default)
     ! OKAY
  CASE(startup_type_setvalues)
     ! OKAY
  CASE DEFAULT
     CALL fatal_error("UNKNOWN STARTUP_TURB_TYPE")
  END SELECT
   

  SELECT CASE(startup_ts_type)
  CASE(startup_type_observed) 
     IF(barotropic) CALL fatal_error("CAN'T SET OBSERVERD TS VALUES IN BAROTROPIC MODE!")
     ! OKAY
  CASE(startup_type_linear)
     IF(barotropic) CALL fatal_error("CAN'T SET LINEAR TS VALUES IN BAROTROPIC MODE!")
     ! OKAY
     IF (startup_t_vals(1) == -99.0_sp) CALL fatal_error("STARTUP_T_VAL not set in run file",&
          & "two values required for linear startup (default is -99.0)")
     IF (startup_t_vals(2) == -99.0_sp)CALL fatal_error("STARTUP_T_VAL not set in run file",&
          & "two values required for linear startup (default is -99.0)")

     IF (startup_s_vals(1) == -99.0_sp)CALL fatal_error("STARTUP_S_VAL not set in run file",&
          & "two values required for linear startup (default is -99.0)")
     IF (startup_s_vals(2) == -99.0_sp)CALL fatal_error("STARTUP_S_VAL not set in run file",&
          & "two values required for linear startup (default is -99.0)")

     IF (startup_dmax == -99.0_sp)CALL fatal_error("STARTUP_DMAX not set in run file",&
          & "two values required for linear startup (default is -99.0)")


  CASE(startup_type_constant)
     ! OKAY
     IF (startup_t_vals(1) == -99.0_sp)CALL fatal_error("STARTUP_T_VAL not set in run file",&
          & "one values required for constant startup (default is -99.0)") 
     IF (startup_t_vals(2) /= -99.0_sp)CALL fatal_error("STARTUP_T_VAL is incorrect run file:",&
          & "only allowed for constant startup!")

     IF (startup_s_vals(1) == -99.0_sp) CALL fatal_error("STARTUP_S_VAL not set in run file",&
          & "one values required for constant startup (default is -99.0)")
     IF (startup_s_vals(2) /= -99.0_sp)CALL fatal_error("STARTUP_S_VAL is incorrect run file:",&
          & "only allowed for constant startup!")

  CASE(startup_type_default)
     CALL fatal_error("I DON'T KNOW HOW TO DO THAT KIND OF STARTUP")
  CASE(startup_type_setvalues)
     IF(barotropic) CALL warning("YOU ARE RESTARTING A BAROTROPIC CASE&
          &: T&S BETTER BE CONSTANT IN THE RESTART FILE!")
     ! OKAY
  CASE DEFAULT
     CALL fatal_error("UNKNOWN STARTUP_TS_TYPE")
  END SELECT
   

Here is the call graph for this function:

Here is the caller graph for this function: