mod_set_time::set_startup_file_stack Interface Reference

Public Member Functions
subroutine	set_startup_file_stack_by_time (STIME, STEP)
subroutine	set_startup_file_stack_by_cycle (step, ATIME)

Detailed Description

Definition at line 47 of file mod_set_time.f90.

Member Function/Subroutine Documentation

set_startup_file_stack_by_cycle()

subroutine mod_set_time::set_startup_file_stack::set_startup_file_stack_by_cycle	(	integer(itime), intent(in)	step,
		type(time), intent(out), optional	ATIME
	)

Definition at line 1407 of file mod_set_time.f90.

    IMPLICIT NONE
    INTEGER(ITIME), INTENT(IN)  :: STEP
    TYPE(TIME), OPTIONAL, INTENT(OUT)     :: Atime
    integer                 :: status, I
    real(DP)                :: temp
    TYPE(NCFILE), POINTER   :: NCF
    TYPE(NCVAR),  POINTER   :: VAR
    INTEGER, TARGET :: FSTEP
    logical found

     IF(.NOT. ASSOCIATED(nc_start)) CALL fatal_error &
       & ("The file object NC_START is not assocaited!")


    status = set_file_time_type(nc_start)
    IF(status /= 0) CALL fatal_error &
         & ("COULD NOT FIND A VALID TIME VARIABLE IN THE RESTART FILE: ",&
         & trim(nc_start%FNAME))

    i = 0
    DO 
       i = i + 1
       IF (i .GT. nc_start%FTIME%STK_LEN) THEN

          CALL fatal_error &
               & ("COULD NOT FIND A MATCHING IINT CYCLE NUMBER IN THE RESTART FILE!:",&
               & trim(nc_start%FNAME))
       END IF

       var => find_var(nc_start,'iint',found)
       IF(.not. found) CALL fatal_error("COULD NOT FIND VARIABLE 'iint'&
            & IN THE HOTSTART FILE OBJECT")
       var%scl_int => fstep
       CALL nc_read_var(var,i)
       
       IF (fstep == step) THEN
          
          if (PRESENT(atime)) THEN
             atime = get_file_time_ncf(nc_start,i)
             
             nc_start%FTIME%PREV_STKCNT = i
             nc_start%FTIME%PREV_IO     = atime
          END if
          
          return
       END IF
       
    END DO
    
    

set_startup_file_stack_by_time()

subroutine mod_set_time::set_startup_file_stack::set_startup_file_stack_by_time	(	type(time), intent(in)	STIME,
		integer(itime), intent(out), optional	STEP
	)

Definition at line 1323 of file mod_set_time.f90.

    IMPLICIT NONE
    TYPE(TIME), INTENT(IN)  :: Stime
    INTEGER(ITIME), INTENT(OUT),OPTIONAL :: STEP

    INTEGER, TARGET :: FSTEP
    TYPE(TIME)              :: Atime
    integer                 :: status, I
    real(DP)                :: temp
    TYPE(NCFILE), POINTER   :: NCF
    TYPE(NCVAR),  POINTER   :: VAR
    logical found
    

     IF(.NOT. ASSOCIATED(nc_start)) CALL fatal_error &
       & ("The file object NC_START is not assocaited!")
  

    status = set_file_time_type(nc_start)
    IF(status /= 0) CALL fatal_error &
         & ("COULD NOT FIND A VALID TIME VARIABLE IN THE RESTART FILE: ",&
         & trim(nc_start%FNAME))

    i = 0
    DO 
       i = i + 1
       IF (i .GT. nc_start%FTIME%STK_LEN) THEN
          
          IF(dbg_set(dbg_log))&
               & CALL print_real_time(stime,ipt,"Asked for Start Time")
          
          IF(i == 2) THEN
            IF(dbg_set(dbg_log))&
                 & CALL print_real_time(get_file_time_ncf(nc_start,1),ipt,"The Only Restart Time Is")
             
          ELSE IF(i==1)THEN
             CALL fatal_error &
                  & ("Restart file has time dimension equal zero!:",&
                  & trim(nc_start%FNAME))
          ELSE
             atime  =get_file_time_ncf(nc_start,1)
             IF(dbg_set(dbg_log))&
                  & CALL print_real_time(atime,ipt,"First Restart Time")
             
             atime  =get_file_time_ncf(nc_start,i-1)
             IF(dbg_set(dbg_log))&
                  & CALL print_real_time(atime,ipt,"Last Restart Time")
          END IF
          
          CALL fatal_error &
               & ("COULD NOT FIND A MATCHING START TIME IN THE RESTART FILE!:",&
               & "(See time options printed above?)",&
               & trim(nc_start%FNAME))
       END IF
          
       atime = get_file_time_ncf(nc_start,i)
       
       
       !IF (ATIME == STime) THEN
       IF(abs(atime -stime)<0.1_sp*imdti) THEN
        
          nc_start%FTIME%PREV_STKCNT = i
          !NC_START%FTIME%PREV_IO     = ATIME

          nc_start%FTIME%PREV_IO     = stime

          IF (PRESENT(step)) THEN
             var => find_var(nc_start,'iint',found)
             IF(.not. found) CALL fatal_error("COULD NOT FIND VARIABLE 'iint'&
                  & IN THE HOTSTART FILE OBJECT")
             var%scl_int => fstep
             CALL nc_read_var(var,i)
             
             step = fstep
          END IF

          return
       END IF
       
    END DO
    
 

---

The documentation for this interface was generated from the following file:

• FVCOMg01/mod_set_time.f90