test Program

Uses

Variables

Type Attributes Name Initial
type(ESMF_Time) :: time1
type(ESMF_Time) :: time2
type(ESMF_Time) :: time3
type(ESMF_Time) :: time4
type(ESMF_Time) :: time5
type(ESMF_Time) :: time6
type(ESMF_Time) :: time7
type(ESMF_Time) :: time8
type(ESMF_TimeInterval) :: timeint1
type(ESMF_TimeInterval) :: timeint2
type(ESMF_TimeInterval) :: timeint3
type(ESMF_TimeInterval) :: timeint4
type(ESMF_TimeInterval) :: timeint5
type(ESMF_CalKind_Flag) :: calkindflag
integer :: year
integer :: month
integer :: day
integer :: hour
integer :: min
integer :: sec
integer :: jday
integer :: year1
integer :: month1
integer :: day1
integer :: hour1
integer :: min1
integer :: sec1
integer :: jday1
integer :: year2
integer :: month2
integer :: day2
integer :: hour2
integer :: min2
integer :: sec2
integer :: jday2
integer :: iyear
integer :: imonth
integer :: iday
integer :: ihour
integer :: imin
integer :: isec
integer :: dyear
integer :: dmonth
integer :: dday
integer :: dhour
integer :: dmin
integer :: dsec
integer :: icyear
integer :: icmonth
integer :: icday
integer :: ichour
integer :: icmin
integer :: icsec
integer :: ical
integer :: i1
integer :: i2
integer :: delta
integer :: errcnt
integer :: totcnt
logical :: errfound
character(len=8) :: dstr
character(len=8) :: calstr
character(len=32) :: estr1
character(len=32) :: estr2
integer, parameter :: mday(12) = (/31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31/)
integer, parameter :: mdayleap(12) = (/31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31/)
character(len=*), parameter :: F01 = "(2x,a,1x,a6,i6,'-',i2.2,'-',i2.2,1x,i2.2,':',i2.2,':',i2.2,1x,a8,i12,a8,i6)"
character(len=*), parameter :: F02 = "(a,1x,a6,2x,i6,'-',i2.2,'-',i2.2,1x,i2.2,':',i2.2,':',i2.2,1x,a8,i12)"
character(len=*), parameter :: F03 = "(a,1x,i6,'-',i2.2,'-',i2.2,1x,a8,a8,i12)"