mod_nctools::get_file_time Interface Reference

Public Member Functions
type(time) function	get_file_time_ncf (NCF, STKCNT)
type(time) function	get_file_time_ncftime (FTM, STKCNT)

Detailed Description

Definition at line 197 of file mod_nctools.f90.

Member Function/Subroutine Documentation

get_file_time_ncf()

type(time) function mod_nctools::get_file_time::get_file_time_ncf	(	type(ncfile), pointer	NCF,
		integer, intent(in)	STKCNT
	)

Definition at line 8035 of file mod_nctools.f90.

  IMPLICIT NONE
  TYPE(TIME)   :: THETIME
  TYPE(NCFILE),POINTER :: NCF
  INTEGER, intent(in) :: STKCNT
  TYPE(NCFTIME), POINTER :: FTM

   IF(.NOT. ASSOCIATED(ncf)) CALL fatal_error &
       & ("GET_FILE_TIME_NCF: FILE object argument is not assocaited!")
  

   IF(.NOT. ASSOCIATED(ncf%FTIME)) THEN
      CALL print_file(ncf)
      CALL fatal_error("GET_FILE_TIME_NCF: FILE object's FTIME is not assocaited!")
   END IF

   ftm =>ncf%FTIME

   thetime = get_file_time(ftm,stkcnt)

get_file_time_ncftime()

type(time) function mod_nctools::get_file_time::get_file_time_ncftime	(	type(ncftime), pointer	FTM,
		integer, intent(in)	STKCNT
	)

Definition at line 8058 of file mod_nctools.f90.

  IMPLICIT NONE
  TYPE(TIME)   :: THETIME
  TYPE(NCFTIME),POINTER :: FTM
  TYPE(NCVAR), POINTER :: VAR1, VAR2
  TYPE(NCATT), POINTER :: ATT
  INTEGER, intent(in) :: STKCNT
  REAL(SP),target :: float_time
  INTEGER, target :: mjd,msec
  Character(len=80), target :: dstring
  INTEGER :: STATUS
  Character(len=80) :: dformat
  LOGICAL FOUND

   IF(.NOT. ASSOCIATED(ftm)) THEN
      CALL fatal_error("GET_FILE_TIME_NCFTIME: THE ARGUMENT FTM is not assocaited!")
   END IF


   IF(stkcnt .LE. 0) CALL fatal_error&
        &('GET_FILE_TIME: YOU CAN NOT GET TIME FOR A STACK COUNT LESS THAN ONE!')

   SELECT CASE(ftm%TMTYPE)
   CASE(tmtype_float_days)

      var1 => ftm%TM1
      
      CALL nc_connect_avar(var1,float_time)
      CALL nc_read_var(var1,stkcnt)

      thetime = days2time(float_time) - time_zone(ftm%TIMEZONE,status)

   CASE(tmtype_float_seconds)

      var1 => ftm%TM1
      
      CALL nc_connect_avar(var1,float_time)
      CALL nc_read_var(var1,stkcnt)

      thetime = seconds2time(float_time) - time_zone(ftm%TIMEZONE,status)

   CASE(tmtype_int2_mjd)

      var1 => ftm%TM1
      
      CALL nc_connect_avar(var1,mjd)
      CALL nc_read_var(var1,stkcnt)

      var2 => ftm%TM2

      CALL nc_connect_avar(var2,msec)
      CALL nc_read_var(var2,stkcnt)

      thetime%MJD= mjd
      thetime%MuSod= int(msec,itime)* int(1000,itime)
 
      thetime = thetime - time_zone(ftm%TIMEZONE,status)

   CASE(tmtype_char_date)

      dformat = "ymd"

      var1 => ftm%TM1
      
      CALL nc_connect_avar(var1,dstring)
      CALL nc_read_var(var1,stkcnt)

      thetime = read_datetime(dstring,dformat,ftm%TIMEZONE,status)
      if(status == 0) THEN
         CALL print_ftime(ftm)
         CALL fatal_error("GET_FILE_TIME: COULD NOT TRANSLATE TIME STRING",&
              "FILE RETURNED: "//trim(dstring))
      END if


   CASE DEFAULT
      CALL print_ftime(ftm)
      CALL fatal_error("GET_FILE_TIME: FILE object's FTIME is an unrecognized type")
   END SELECT

  

---

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

• FVCOMg01/mod_nctools.f90