Data Types
type	nest_data

Functions/Subroutines
subroutine	name_list_initialize_nest

subroutine	name_list_print_nest

subroutine	name_list_read_nest

subroutine	open_nesting_file

subroutine	set_var (NOW, UA, VA, EL, U, V, S1, T1, HYW)

subroutine	set_var_wave (NOW, HSC1, TPEAK, DIRDEG1)

subroutine	archive_nest

subroutine	archive_nest_wave

subroutine	update_itime_nest (VAR1, VAR2, NOW)

integer function	time2ncitime_nest (MJD, D, MS)

subroutine	update_float_time_nest (VAR, NOW)

type(ncvar) function, pointer	float_time_object_nest (use_mjd, DIM, size)

type(ncvar) function, pointer	itime_object_nest (use_mjd, DIM, size)

Variables
type(grid), pointer	nesting_grid

type(nest_data), pointer	nesting_data

type(ncfile), pointer	nesting_file

real(sp), dimension(:), allocatable	ua_nest

real(sp), dimension(:), allocatable	va_nest

real(sp), dimension(:), allocatable	el_nest

real(sp), dimension(:,:), allocatable	u_nest

real(sp), dimension(:,:), allocatable	v_nest

real(sp), dimension(:,:), allocatable	s1_nest

real(sp), dimension(:,:), allocatable	t1_nest

real(sp), dimension(:,:), allocatable	hyw_nest

real(sp), dimension(:,:), allocatable	u_nest_l

real(sp), dimension(:,:), allocatable	v_nest_l

real(sp), dimension(:,:), allocatable	s1_nest_l

real(sp), dimension(:,:), allocatable	t1_nest_l

real(sp), dimension(:,:), allocatable	hyw_nest_l

real(sp), dimension(:,:), allocatable, target	zz_l

real(sp), dimension(:,:), allocatable, target	zz1_l

real(sp), dimension(:), allocatable, target	h_l

real(sp), dimension(:), allocatable, target	h1_l

real(sp), dimension(:), allocatable	wcell_nest

real(sp), dimension(:), allocatable	wnode_nest

type(ncvar), pointer	var_ua

type(ncvar), pointer	var_va

type(ncvar), pointer	var_el

type(ncvar), pointer	var_u

type(ncvar), pointer	var_v

type(ncvar), pointer	var_s1

type(ncvar), pointer	var_t1

type(ncvar), pointer	var_hyw

type(ncvar), pointer	var_time1

type(ncvar), pointer	var_time2

type(ncvar), pointer	var_wcell

type(ncvar), pointer	var_wnode

integer	ncnest_num

character(len=80), dimension(:), allocatable	ncnest_fnames

type(grid), dimension(:), pointer	ncnest_grids

type(nest_data), dimension(:), pointer	ncnest_data

type(time)	interval_time_ncnest

type(time)	time_interval

logical	nesting_on

character(len=80)	nesting_type

integer	nesting_blocksize

character(len=80)	nesting_file_name

logical	ncnest_on

integer	ncnest_blocksize

character(len=160)	ncnest_node_files

character(len=80)	ncnest_out_interval

integer	kb_l

integer	kbm1_l

Function/Subroutine Documentation

◆ archive_nest()

subroutine mod_nesting::archive_nest ( )

Definition at line 334 of file mod_nesting.f90.

334 IMPLICIT NONE

Here is the caller graph for this function:

◆ archive_nest_wave()

subroutine mod_nesting::archive_nest_wave ( )

Definition at line 338 of file mod_nesting.f90.

338 IMPLICIT NONE

◆ float_time_object_nest()

type(ncvar) function, pointer mod_nesting::float_time_object_nest	(	logical, intent(in)	use_mjd,
		type(ncdim), optional, pointer	DIM,
		integer, optional	size
	)

Definition at line 421 of file mod_nesting.f90.

     IMPLICIT NONE
     TYPE(NCVAR),  POINTER :: VAR
     logical, intent(in) :: use_mjd
     TYPE(NCDIM),  POINTER, OPTIONAL :: DIM
     INTEGER, OPTIONAL :: SIZE
     TYPE(NCATT), POINTER :: ATT
     REAL(SP),pointer :: Data_vec(:)
     REAL(SP),pointer :: Data_scl
 
     IF(PRESENT(size)) THEN
        ALLOCATE(data_vec(size))
     ELSE
        ALLOCATE(data_vec(1))
        data_scl =>data_vec(1)
     END IF
 
     IF (PRESENT(dim)) THEN
        var  => nc_make_pvar(name='time', values=data_vec, dim1= dim)
        if(associated(var%vec_flt))then
          var%scl_flt => var%vec_flt(1)
        else
          var%scl_dbl => var%vec_dbl(1)
        endif
     ELSE
        var  => nc_make_pvar(name='time', values=data_scl)
     END IF
     
     att  => nc_make_att(name='long_name',values='time')
     var  => add(var,att)
     
     IF (use_mjd) THEN
        att  => nc_make_att(name='units',values=mjd_units)
        var  => add(var,att)
        
        att  => nc_make_att(name='format',values=fmat)
        var  => add(var,att)
 
        att  => nc_make_att(name='time_zone',values='UTC') 
        var  => add(var,att)
        
     ELSE
        att  => nc_make_att(name='units',values=days_units)
        var  => add(var,att)       
        
        att  => nc_make_att(name='time_zone',values='none') 
        var  => add(var,att)
     END IF
     
 

◆ itime_object_nest()

type(ncvar) function, pointer mod_nesting::itime_object_nest	(	logical, intent(in)	use_mjd,
		type(ncdim), optional, pointer	DIM,
		integer, optional	size
	)

Definition at line 474 of file mod_nesting.f90.

     IMPLICIT NONE
     TYPE(NCVAR),  POINTER :: VAR
     logical, intent(in) :: use_mjd
     TYPE(NCDIM),  POINTER, OPTIONAL :: DIM
     INTEGER, OPTIONAL :: SIZE
     TYPE(NCATT), POINTER :: ATT
     INTEGER,POINTER :: Data_vec(:)
     INTEGER,POINTER :: Data_scl
 
     IF(PRESENT(size)) THEN
        ALLOCATE(data_vec(size))
     ELSE
        ALLOCATE(data_vec(1))
        data_scl =>data_vec(1)
     END IF
     
         ! Itime
     IF (PRESENT(dim)) THEN
         var  => nc_make_pvar(name='Itime', values=data_vec, dim1= dim)
         var%SCL_INT => var%VEC_INT(1)
     ELSE
        var  => nc_make_pvar(name='Itime', values=data_scl)
     END IF
 
     IF (use_mjd) THEN
        att  => nc_make_att(name='units',values=mjd_units)
        var  => add(var,att)
 
        att  => nc_make_att(name='format',values=fmat)
        var  => add(var,att)
 
        att  => nc_make_att(name='time_zone',values='UTC') 
        var  => add(var,att)
     ELSE
        att  => nc_make_att(name='units',values=days_units)
        var  => add(var,att)
               
        att  => nc_make_att(name='time_zone',values='none') 
        var  => add(var,att)
     END IF
 

◆ name_list_initialize_nest()

subroutine mod_nesting::name_list_initialize_nest ( )

Definition at line 164 of file mod_nesting.f90.

     USE control
 
     IMPLICIT NONE
 
     !--Parameters in NameList NML_NESTING
     nesting_on = .false.
     nesting_type = "'1' or '2' or '3'"
     nesting_blocksize = -1
     nesting_file_name = trim(casename)//"_nesting.nc"
 
     !--Parameters in NameList NML_NCNEST
     ncnest_on = .false.
     ncnest_blocksize = -1
     ncnest_node_files = "none"
     ncnest_out_interval = "A length of time: 'seconds= ','days= ', or 'cycles= '"
 
 
     kb_l   = 0
     kbm1_l = 0
 
     RETURN

Here is the caller graph for this function:

◆ name_list_print_nest()

subroutine mod_nesting::name_list_print_nest ( )

Definition at line 190 of file mod_nesting.f90.

     USE control
 
     IMPLICIT NONE
 
     WRITE(unit=ipt,nml=nml_ncnest)
 
     WRITE(unit=ipt,nml=nml_nesting)
 
     RETURN

◆ name_list_read_nest()

subroutine mod_nesting::name_list_read_nest ( )

Definition at line 205 of file mod_nesting.f90.

     USE mod_utils
     USE control
     USE mod_set_time, ONLY : get_output_file_interval
 
     IMPLICIT NONE
 
     INTEGER :: ios,I
     CHARACTER(LEN=120) :: FNAME
 
     IF(dbg_set(dbg_sbr)) write(ipt,*) "Subroutine Begins: name_list_read_nest;"
 
     ios = 0
     fname = "./"//trim(casename)//"_run.nml"
     IF(dbg_set(dbg_io)) write(ipt,*) "Get_nestpar: File: ",trim(fname)
 
     CALL fopen(nmlunit,trim(fname),'cfr')
 
     !READ NAME LIST FILE
 
     !READ NESTING FLAG
     READ(unit=nmlunit, nml=nml_nesting,iostat=ios)  
     IF(ios /= 0)THEN
        IF(dbg_set(dbg_log)) write(unit=ipt,nml=nml_nesting)
        CALL fatal_error("Can Not Read NameList NML_NESTING from file: "//trim(fname))
     END IF
 
     if(dbg_set(dbg_scl)) &
          & write(ipt,*) "Read_Name_List:NML_NESTING"
 
     if(dbg_set(dbg_scl)) &
          & write(unit=ipt,nml=nml_nesting)
 
     rewind(nmlunit)
 
     !READ NESTING FLAG
     READ(unit=nmlunit, nml=nml_ncnest,iostat=ios)  
     IF(ios /= 0)THEN
        IF(dbg_set(dbg_log)) write(unit=ipt,nml=nml_ncnest)
        CALL fatal_error("Can Not Read NameList NML_NCNEST from file: "//trim(fname))
     END IF
 
     if(dbg_set(dbg_scl)) &
          & write(ipt,*) "Read_Name_List: NML_NCNEST"
 
     if(dbg_set(dbg_scl)) &
          & write(unit=ipt,nml=nml_ncnest)
 
 
 
     CLOSE(nmlunit)
 
     ! DO SOME BASIC CHECKING ON THE NESTING NAMELIST
     IF(nesting_on) THEN
 
        IF( nesting_blocksize < 2) CALL fatal_error &
             & ("THE NESTING_BLOCKSIZE IS LESS THAN TWO IN THE NESTING NAME LIST")
 
        IF(len_trim(nesting_file_name) == 0 ) CALL fatal_error &
             & ("THE NESTING FILE NAME IS EMPTY IN THE NAME LIST")
 
     END IF
 
     IF(ncnest_on) THEN
 
        IF( ncnest_blocksize < 2) CALL fatal_error &
             & ("THE NCNEST_BLOCKSIZE IS LESS THAN TWO IN THE NCNEST NAME LIST")
 
        IF(ncnest_node_files == 'none' .or. len_trim(ncnest_node_files)==0)CALL fatal_error &
             & ("THE NCNEST_NODE_FILES VARIABLE IS EMPTY IN THE NCNEST NAME LIST")
 
        CALL get_output_file_interval(trim(ncnest_out_interval),interval_time_ncnest)
 
     END IF
 
     CLOSE(nmlunit)
 
     if(dbg_set(dbg_sbr)) &
          & write(ipt,*) "Subroutine Ends: name_list_read_nest;"    
 

Here is the call graph for this function:

Here is the caller graph for this function:

◆ open_nesting_file()

subroutine mod_nesting::open_nesting_file ( )

Definition at line 287 of file mod_nesting.f90.

     IMPLICIT NONE
     TYPE(NCFILE), POINTER :: NCF
     integer :: charnum
     logical :: back=.true.
     character(len=160) :: pathnfile
         ! LOAD NESTING NETCDF FILE
     IF (nesting_on) THEN
 
        ! TEST FILE NAME
        charnum = index(nesting_file_name,".nc",back)
        if (charnum /= len_trim(nesting_file_name)-2)&
             & CALL warning("Nesting File does not end in .nc", &
             & trim(nesting_file_name))
        
        ! INITIALIZE TYPE TO HOLD FILE METADATA
        pathnfile= trim(input_dir)//trim(nesting_file_name)
        CALL  nc_init(ncf,pathnfile)
        
        ! OPEN THE FILE AND LOAD METADATA
        if(.not. ncf%OPEN) then
           Call nc_open(ncf)
           CALL nc_load(ncf)
           filehead => add(filehead,ncf)
        end if
        
     END IF
 

Here is the call graph for this function:

Here is the caller graph for this function:

◆ set_var()

subroutine mod_nesting::set_var	(	type(time), intent(in)	NOW,
		real(sp), dimension(:), optional, allocatable	UA,
		real(sp), dimension(:), optional, allocatable	VA,
		real(sp), dimension(:), optional, allocatable	EL,
		real(sp), dimension(:,:), optional, allocatable	U,
		real(sp), dimension(:,:), optional, allocatable	V,
		real(sp), dimension(:,:), optional, allocatable	S1,
		real(sp), dimension(:,:), optional, allocatable	T1,
		real(sp), dimension(:,:), optional, allocatable	HYW
	)

Definition at line 321 of file mod_nesting.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN) :: NOW    
     REAL(SP), ALLOCATABLE, OPTIONAL :: UA(:),VA(:),EL(:)
     REAL(SP), ALLOCATABLE, OPTIONAL :: U(:,:),V(:,:),S1(:,:),T1(:,:),HYW(:,:)

Here is the caller graph for this function:

◆ set_var_wave()

subroutine mod_nesting::set_var_wave	(	type(time), intent(in)	NOW,
		real(sp), dimension(:), optional, allocatable	HSC1,
		real(sp), dimension(:), optional, allocatable	TPEAK,
		real(sp), dimension(:), optional, allocatable	DIRDEG1
	)

Definition at line 328 of file mod_nesting.f90.

     IMPLICIT NONE
     TYPE(TIME), INTENT(IN) :: NOW    
     REAL(SP), ALLOCATABLE, OPTIONAL :: HSC1(:),TPEAK(:),DIRDEG1(:)   

◆ time2ncitime_nest()

integer function mod_nesting::time2ncitime_nest	(	type(time), intent(in)	MJD,
		integer, intent(out)	D,
		integer, intent(out)	MS
	)

Definition at line 376 of file mod_nesting.f90.

      implicit none
      INTEGER :: RES
      TYPE(TIME), INTENT(IN) :: MJD
      INTEGER, INTENT(OUT) :: D, MS
      REAL(DP) :: MSEC
 
      res = -1
      msec = dble(mjd%MuSod) / 1000.0_dp
      ms = anint(msec)
 
      ! CHECK TO MAKE SURE IT IS NOT TOO LARGE
      IF (abs(mjd%MJD) .GT. huge(d)) THEN
         res =0 
         return
      END IF
      
      d = mjd%MJD
 

Here is the caller graph for this function:

◆ update_float_time_nest()

subroutine mod_nesting::update_float_time_nest	(	type(ncvar), pointer	VAR,
		type(time), intent(in)	NOW
	)

Definition at line 398 of file mod_nesting.f90.

     IMPLICIT NONE
     TYPE(NCVAR),  POINTER :: VAR
     TYPE(TIME), INTENT(in) :: NOW
     REAL(SP), POINTER :: Data
     LOGICAL :: TEST
     CHARACTER(len=80):: TZONE
 
     test = is_valid_float_days(var,tzone)
     IF(.not. test) THEN
        CALL print_var(var)
        call print_att_list(var)
        CALL fatal_error &
             ("CAN NOT UPDATE TIME FOR INVALID FLOATING POINT TIME VARIABLE")
     END IF
 
     CALL nc_point_var(var,data)
     
     Data = days(now)
 

Here is the call graph for this function:

◆ update_itime_nest()

subroutine mod_nesting::update_itime_nest	(	type(ncvar), pointer	VAR1,
		type(ncvar), pointer	VAR2,
		type(time), intent(in)	NOW
	)

Definition at line 344 of file mod_nesting.f90.

     IMPLICIT NONE
     TYPE(NCVAR),  POINTER :: VAR1
     TYPE(NCVAR),  POINTER :: VAR2
     TYPE(NCATT), POINTER :: ATT
     TYPE(TIME), INTENT(in) :: NOW
     INTEGER, POINTER :: D1,D2
     LOGICAL :: TEST2
     INTEGER :: TEST
     CHARACTER(len=80):: TZONE
 
     test2 = is_valid_itime(var1,var2,tzone)
     IF(.not. test2) THEN
        CALL print_var(var1)
        CALL print_var(var2)
        CALL fatal_error &
             ("CAN NOT UPDATE TIME FOR INVALID INTEGER TIME VARIABLES")
     END IF
 
     CALL nc_point_var(var1,d1)
 
     CALL nc_point_var(var2,d2)
 
     test = time2ncitime_nest(now,d1,d2)
 
 !    if(.not. TEST) call fatal_error("That is bad times man!") 
     if(test==0) call fatal_error("That is bad times man!")
     ! THIS SHOULD NEVER HAPPEN?
     

Here is the call graph for this function:

Variable Documentation

◆ el_nest

real(sp), dimension(:), allocatable mod_nesting::el_nest

Definition at line 79 of file mod_nesting.f90.

◆ h1_l

real(sp), dimension(:), allocatable, target mod_nesting::h1_l

Definition at line 88 of file mod_nesting.f90.

◆ h_l

real(sp), dimension(:), allocatable, target mod_nesting::h_l

Definition at line 88 of file mod_nesting.f90.

◆ hyw_nest

real(sp), dimension(:,:), allocatable mod_nesting::hyw_nest

Definition at line 82 of file mod_nesting.f90.

82 REAL(SP), ALLOCATABLE :: HYW_NEST(:,:)

◆ hyw_nest_l

real(sp), dimension(:,:), allocatable mod_nesting::hyw_nest_l

Definition at line 86 of file mod_nesting.f90.

86 REAL(SP), ALLOCATABLE :: HYW_NEST_L(:,:)

◆ interval_time_ncnest

type(time) mod_nesting::interval_time_ncnest

Definition at line 119 of file mod_nesting.f90.

119 TYPE(TIME) :: INTERVAL_TIME_NCNEST, TIME_INTERVAL

◆ kb_l

integer mod_nesting::kb_l

Definition at line 156 of file mod_nesting.f90.

156 INTEGER :: KB_L

◆ kbm1_l

integer mod_nesting::kbm1_l

Definition at line 157 of file mod_nesting.f90.

157 INTEGER :: KBM1_L

◆ ncnest_blocksize

integer mod_nesting::ncnest_blocksize

Definition at line 145 of file mod_nesting.f90.

145 INTEGER :: NCNEST_BLOCKSIZE

◆ ncnest_data

type(nest_data), dimension(:), pointer mod_nesting::ncnest_data

Definition at line 114 of file mod_nesting.f90.

114 TYPE(NEST_DATA), POINTER :: NCNEST_DATA(:)

◆ ncnest_fnames

character(len=80), dimension(:), allocatable mod_nesting::ncnest_fnames

Definition at line 112 of file mod_nesting.f90.

112 CHARACTER(LEN=80), ALLOCATABLE :: NCNEST_FNAMES(:)

◆ ncnest_grids

type(grid), dimension(:), pointer mod_nesting::ncnest_grids

Definition at line 113 of file mod_nesting.f90.

113 TYPE(GRID), POINTER :: NCNEST_GRIDS(:)

◆ ncnest_node_files

character(len=160) mod_nesting::ncnest_node_files

Definition at line 146 of file mod_nesting.f90.

146 CHARACTER(LEN=160) NCNEST_NODE_FILES

◆ ncnest_num

integer mod_nesting::ncnest_num

Definition at line 111 of file mod_nesting.f90.

111 INTEGER :: NCNEST_NUM

◆ ncnest_on

logical mod_nesting::ncnest_on

Definition at line 144 of file mod_nesting.f90.

144 LOGICAL NCNEST_ON

◆ ncnest_out_interval

character(len=80) mod_nesting::ncnest_out_interval

Definition at line 147 of file mod_nesting.f90.

147 CHARACTER(LEN=80) NCNEST_OUT_INTERVAL

◆ nesting_blocksize

integer mod_nesting::nesting_blocksize

Definition at line 133 of file mod_nesting.f90.

133 INTEGER :: NESTING_BLOCKSIZE !!SIZE OF DATA BLOCKS IN FILE

◆ nesting_data

type(nest_data), pointer mod_nesting::nesting_data

Definition at line 70 of file mod_nesting.f90.

70 TYPE(NEST_DATA), POINTER :: NESTING_DATA

◆ nesting_file

type(ncfile), pointer mod_nesting::nesting_file

Definition at line 71 of file mod_nesting.f90.

71 TYPE(NCFILE), POINTER :: NESTING_FILE

◆ nesting_file_name

character(len=80) mod_nesting::nesting_file_name

Definition at line 134 of file mod_nesting.f90.

134 CHARACTER(LEN=80) NESTING_FILE_NAME !!NAME OF RESTART FILE

◆ nesting_grid

type(grid), pointer mod_nesting::nesting_grid

Definition at line 69 of file mod_nesting.f90.

69 TYPE(GRID), POINTER :: NESTING_GRID

◆ nesting_on

logical mod_nesting::nesting_on

Definition at line 131 of file mod_nesting.f90.

131 LOGICAL NESTING_ON !!TRUE IF OUTPUT RESART FILES

◆ nesting_type

character(len=80) mod_nesting::nesting_type

Definition at line 132 of file mod_nesting.f90.

132 CHARACTER(LEN=80) NESTING_TYPE !!TYPE OF NESTING: 1, 2, 3

◆ s1_nest

real(sp), dimension(:,:), allocatable mod_nesting::s1_nest

Definition at line 81 of file mod_nesting.f90.

81 REAL(SP), ALLOCATABLE :: S1_NEST(:,:),T1_NEST(:,:)

◆ s1_nest_l

real(sp), dimension(:,:), allocatable mod_nesting::s1_nest_l

Definition at line 85 of file mod_nesting.f90.

85 REAL(SP), ALLOCATABLE :: S1_NEST_L(:,:),T1_NEST_L(:,:)

◆ t1_nest

real(sp), dimension(:,:), allocatable mod_nesting::t1_nest

Definition at line 81 of file mod_nesting.f90.

◆ t1_nest_l

real(sp), dimension(:,:), allocatable mod_nesting::t1_nest_l

Definition at line 85 of file mod_nesting.f90.

◆ time_interval

type(time) mod_nesting::time_interval

Definition at line 119 of file mod_nesting.f90.

◆ u_nest

real(sp), dimension(:,:), allocatable mod_nesting::u_nest

Definition at line 80 of file mod_nesting.f90.

80 REAL(SP), ALLOCATABLE :: U_NEST(:,:),V_NEST(:,:)

◆ u_nest_l

real(sp), dimension(:,:), allocatable mod_nesting::u_nest_l

Definition at line 84 of file mod_nesting.f90.

84 REAL(SP), ALLOCATABLE :: U_NEST_L(:,:),V_NEST_L(:,:)

◆ ua_nest

real(sp), dimension(:), allocatable mod_nesting::ua_nest

Definition at line 79 of file mod_nesting.f90.

79 REAL(SP), ALLOCATABLE :: UA_NEST(:),VA_NEST(:),EL_NEST(:)

◆ v_nest

real(sp), dimension(:,:), allocatable mod_nesting::v_nest

Definition at line 80 of file mod_nesting.f90.

◆ v_nest_l

real(sp), dimension(:,:), allocatable mod_nesting::v_nest_l

Definition at line 84 of file mod_nesting.f90.

◆ va_nest

real(sp), dimension(:), allocatable mod_nesting::va_nest

Definition at line 79 of file mod_nesting.f90.

◆ var_el

type(ncvar), pointer mod_nesting::var_el

Definition at line 95 of file mod_nesting.f90.

95 TYPE(NCVAR), POINTER :: VAR_EL

◆ var_hyw

type(ncvar), pointer mod_nesting::var_hyw

Definition at line 100 of file mod_nesting.f90.

100 TYPE(NCVAR), POINTER :: VAR_HYW

◆ var_s1

type(ncvar), pointer mod_nesting::var_s1

Definition at line 98 of file mod_nesting.f90.

98 TYPE(NCVAR), POINTER :: VAR_S1

◆ var_t1

type(ncvar), pointer mod_nesting::var_t1

Definition at line 99 of file mod_nesting.f90.

99 TYPE(NCVAR), POINTER :: VAR_T1

◆ var_time1

type(ncvar), pointer mod_nesting::var_time1

Definition at line 101 of file mod_nesting.f90.

101 TYPE(NCVAR), POINTER :: VAR_TIME1

◆ var_time2

type(ncvar), pointer mod_nesting::var_time2

Definition at line 102 of file mod_nesting.f90.

102 TYPE(NCVAR), POINTER :: VAR_TIME2

◆ var_u

type(ncvar), pointer mod_nesting::var_u

Definition at line 96 of file mod_nesting.f90.

96 TYPE(NCVAR), POINTER :: VAR_U

◆ var_ua

type(ncvar), pointer mod_nesting::var_ua

Definition at line 93 of file mod_nesting.f90.

93 TYPE(NCVAR), POINTER :: VAR_UA

◆ var_v

type(ncvar), pointer mod_nesting::var_v

Definition at line 97 of file mod_nesting.f90.

97 TYPE(NCVAR), POINTER :: VAR_V

◆ var_va

type(ncvar), pointer mod_nesting::var_va

Definition at line 94 of file mod_nesting.f90.

94 TYPE(NCVAR), POINTER :: VAR_VA

◆ var_wcell

type(ncvar), pointer mod_nesting::var_wcell

Definition at line 104 of file mod_nesting.f90.

104 TYPE(NCVAR), POINTER :: VAR_WCELL

◆ var_wnode

type(ncvar), pointer mod_nesting::var_wnode

Definition at line 105 of file mod_nesting.f90.

105 TYPE(NCVAR), POINTER :: VAR_WNODE

◆ wcell_nest

real(sp), dimension(:), allocatable mod_nesting::wcell_nest

Definition at line 90 of file mod_nesting.f90.

90 REAL(SP), ALLOCATABLE :: WCELL_NEST(:),WNODE_NEST(:)

◆ wnode_nest

real(sp), dimension(:), allocatable mod_nesting::wnode_nest

Definition at line 90 of file mod_nesting.f90.

◆ zz1_l

real(sp), dimension(:,:), allocatable, target mod_nesting::zz1_l

Definition at line 88 of file mod_nesting.f90.

◆ zz_l

real(sp), dimension(:,:), allocatable, target mod_nesting::zz_l

Definition at line 88 of file mod_nesting.f90.

88 REAL(SP), ALLOCATABLE, TARGET :: ZZ_L(:,:),ZZ1_L(:,:),H_L(:),H1_L(:)

Data Types

Functions/Subroutines

Variables

Function/Subroutine Documentation

◆ archive_nest()

◆ archive_nest_wave()

◆ float_time_object_nest()

◆ itime_object_nest()

◆ name_list_initialize_nest()

◆ name_list_print_nest()

◆ name_list_read_nest()

◆ open_nesting_file()

◆ set_var()

◆ set_var_wave()

◆ time2ncitime_nest()

◆ update_float_time_nest()

◆ update_itime_nest()

Variable Documentation

◆ el_nest

◆ h1_l

◆ h_l

◆ hyw_nest

◆ hyw_nest_l

◆ interval_time_ncnest

◆ kb_l

◆ kbm1_l

◆ ncnest_blocksize

◆ ncnest_data

◆ ncnest_fnames

◆ ncnest_grids

◆ ncnest_node_files

◆ ncnest_num

◆ ncnest_on

◆ ncnest_out_interval

◆ nesting_blocksize

◆ nesting_data

◆ nesting_file

◆ nesting_file_name

◆ nesting_grid

◆ nesting_on

◆ nesting_type

◆ s1_nest

◆ s1_nest_l

◆ t1_nest

◆ t1_nest_l

◆ time_interval

◆ u_nest

◆ u_nest_l

◆ ua_nest

◆ v_nest

◆ v_nest_l

◆ va_nest

◆ var_el

◆ var_hyw

◆ var_s1

◆ var_t1

◆ var_time1

◆ var_time2

◆ var_u

◆ var_ua

◆ var_v

◆ var_va

◆ var_wcell

◆ var_wnode

◆ wcell_nest

◆ wnode_nest

◆ zz1_l

◆ zz_l