load_grid.f90 File Reference

Go to the source code of this file.

Functions/Subroutines
subroutine	load_grid

Function/Subroutine Documentation

load_grid()

subroutine load_grid

(

)

Definition at line 41 of file load_grid.f90.

!===============================================================================!
! GET THE GRID CONNECTIVITY AND OBC NODE LIST FOR DOMAIN
!    DECOMPOSITION AND GENMAP
!===============================================================================!
  USE control
  USE mod_input
  USE mod_obcs
  USE all_vars
  USE mod_nesting
  IMPLICIT NONE
  integer i


  SELECT CASE(startup_type)
     !=================================================
     ! HOTSTART 
  CASE("hotstart")
     !=================================================
     if(dbg_set(dbg_log)) then 
        WRITE(ipt,*)'!               READING GRID FOR HOTSTART                        !'
        WRITE(ipt,*)'!                                                                !'
     end if
     
     CALL load_restart_grid(nvg) ! SET DIMENSIONS HERE
          
     CALL load_restart_obc_grid(iobcn_gl,i_obc_gl, type_obc_gl)
        
     CALL load_restart_lsf_grid(nobclsf_gl,ibclsf_gl, rbc_geo_gl,rbc_wdf_gl)


     !=================================================
     ! CRASHSTART 
  CASE("crashrestart")
     !=================================================
     if(dbg_set(dbg_log)) then 
        WRITE(ipt,*)'!               READING GRID FOR CRASHSTART                      !'
        WRITE(ipt,*)'!                                                                !'
     end if
     
     CALL load_restart_grid(nvg)  ! SET DIMENSIONS HERE
 
     CALL load_restart_obc_grid(iobcn_gl,i_obc_gl, type_obc_gl)
     
     CALL load_restart_lsf_grid(nobclsf_gl,ibclsf_gl, rbc_geo_gl,rbc_wdf_gl)  

     !=================================================
     ! COLDSTART 
  CASE("coldstart")
     !=================================================
     if(dbg_set(dbg_log)) then 
        WRITE(ipt,*)'!               READING GRID FOR COLDSTART                       !'
        WRITE(ipt,*)'!                                                                !'
     end if
     
     ! SET DIMENSIONS HERE
     CALL load_coldstart_sigma 

     CALL load_coldstart_grid(nvg)
     
     CALL load_coldstart_obc_grid(iobcn_gl,i_obc_gl, type_obc_gl)

     CALL load_coldstart_lsf(nobclsf_gl,ibclsf_gl, rbc_geo_gl,rbc_wdf_gl)

  END SELECT
  

Here is the call graph for this function:

Here is the caller graph for this function: