ice_calendar Module Reference

Functions/Subroutines
subroutine	init_calendar
subroutine	calendar (ttime)

Variables
integer(kind=int_kind), dimension(12)	daymo
integer(kind=int_kind), dimension(13)	daycal
integer(kind=int_kind)	istep
integer(kind=int_kind)	istep0
integer(kind=int_kind)	istep1
integer(kind=int_kind)	mday
integer(kind=int_kind)	week
integer(kind=int_kind)	month
integer(kind=int_kind)	monthp
integer(kind=int_kind)	year_init
integer(kind=int_kind)	nyr
integer(kind=int_kind)	idate
integer(kind=int_kind)	sec
integer(kind=int_kind)	npt
integer(kind=int_kind)	ndyn_dt
integer(kind=int_kind)	stop_now
integer(kind=int_kind)	write_restart
integer(kind=int_kind)	cpl_write_history
integer(kind=int_kind)	diagfreq
integer(kind=int_kind)	dumpfreq_n
real(kind=dbl_kind)	dtice
real(kind=dbl_kind)	dyn_dt
real(kind=dbl_kind)	dtei
real(kind=dbl_kind)	time_forc
real(kind=dbl_kind)	yday
logical(kind=log_kind)	new_year
logical(kind=log_kind)	new_month
logical(kind=log_kind)	new_week
logical(kind=log_kind)	new_day
logical(kind=log_kind)	write_ic
logical(kind=log_kind)	write_history
character(len=1)	histfreq
character(len=1)	dumpfreq

Function/Subroutine Documentation

calendar()

subroutine ice_calendar::calendar

(

real (kind=dbl_kind), intent(in)

ttime

)

Definition at line 153 of file ice_calendar.f90.

!
! !DESCRIPTION:
!
! Determine the date at the end of the time step
!
! !REVISION HISTORY:
!
! authors: Elizabeth C. Hunke, LANL
!          Tony Craig, NCAR
!
! !USES:
      use ice_fileunits
!
! !INPUT/OUTPUT PARAMETERS:
!
      real (kind=dbl_kind), intent(in) :: &
         ttime                          ! time variable
!
!EOP
!
      integer (kind=int_kind) ::     &
         k                           &
      ,  nyrp,mdayp,weekp            &  ! previous year, day, week
      ,  elapsed_days                &  ! since beginning this run
      ,  elapsed_months                 ! since beginning this run
                                      
      real (kind=dbl_kind) ::        &
         tday                        &  ! absolute day number
      ,  dayyr                          ! number of days per year

      dayyr = 365.0_dbl_kind

      nyrp=nyr
      monthp=month
      weekp=week
      mdayp=mday
      new_year=.false.
      new_month=.false.
      new_week=.false.
      new_day=.false.
      write_history=.false.
      write_restart=0

      sec = mod(ttime,secday)           ! elapsed seconds into date at 
                                        ! end of dt
      tday = (ttime-sec)/secday + c1i    ! absolute day number 
      yday = mod(tday-c1i,dayyr) + c1i   ! day of the year 
      week = int(yday/c7i) + c1i         ! week of the year
      do k = 1, 12
        if (yday > real(daycal(k),kind=dbl_kind)) month = k ! month
      enddo
      mday = int(yday) - daycal(month)  ! day of the month
      nyr = int((tday-c1i)/dayyr) + 1    ! year number
      elapsed_months = (nyr - 1)*12 + month - 1
      elapsed_days = int(tday) - 1 

      idate = (nyr+year_init-1)*10000 + month*100 + mday ! date (yyyymmdd) 

      if (istep >= npt+1) stop_now = 1
      if (nyr /= nyrp) new_year = .true.
      if (month /= monthp) new_month = .true.
      if (week /= weekp) new_week = .true.
      if (mday /= mdayp) new_day = .true.

      if (histfreq == '1') write_history=.true.
      if (istep > 1) then
        if (((histfreq == 'y'.or.histfreq == 'Y').and.new_year).or.  & 
            ((histfreq == 'm'.or.histfreq == 'M').and.new_month).or. &
            ((histfreq == 'w'.or.histfreq == 'W').and.new_week).or.  &
            ((histfreq == 'd'.or.histfreq == 'D').and.new_day))      &
            write_history=.true.
        select case (dumpfreq)
        case ("y", "Y")
          if (new_year  .and. mod(nyr, dumpfreq_n)==0)           &
                write_restart = 1                                 
        case ("m", "M")                                           
          if (new_month .and. mod(elapsed_months,dumpfreq_n)==0) &
                write_restart=1                                   
        case ("d", "D")                                           
          if (new_day   .and. mod(elapsed_days, dumpfreq_n)==0)  &
                write_restart = 1                                 
        end select                                                
      endif                                                       
                                                                  
      if (my_task == master_task.and.mod(istep,diagfreq) == 0    &
        .and.stop_now /= 1) then
        write(nu_diag,*) ' '
        write(nu_diag,'(a7,i10,4x,a6,i10,4x,a4,i10)')            &
            'istep1:', istep1, 'idate:', idate, 'sec:', sec
      endif

init_calendar()

subroutine ice_calendar::init_calendar

(

)

Definition at line 110 of file ice_calendar.f90.

!
! !DESCRIPTION:
!
! Initialize calendar variables
!
! !REVISION HISTORY:
!
! authors: Elizabeth C. Hunke, LANL
!          Tony Craig, NCAR
!
! !USES:
!
! !INPUT/OUTPUT PARAMETERS:
!
!EOP
!
      istep1 = istep0   ! number of steps at current timestep
                        ! real (dumped) or imagined (use to set calendar)
      istep = 0         ! local timestep number
!      time=istep0*dt    ! s
!      time=istep0*dtice    ! s
!       ggao be careful 

      yday=c0i           ! absolute day number
      mday=0            ! day of the month
      month=0           ! month
      nyr=0             ! year
      idate=00000101    ! date
      sec=0             ! seconds into date
      stop_now = 0      ! end program execution if stop_now=1
!      dyn_dt = dt/real(ndyn_dt,kind=dbl_kind) ! dynamics et al timestep
      dyn_dt = dtice/real(ndyn_dt,kind=dbl_kind) ! dynamics et al timestep
!      ggao 

Variable Documentation

cpl_write_history

integer (kind=int_kind) ice_calendar::cpl_write_history

Definition at line 55 of file ice_calendar.f90.

daycal

integer (kind=int_kind), dimension(13) ice_calendar::daycal

Definition at line 48 of file ice_calendar.f90.

daymo

integer (kind=int_kind), dimension(12) ice_calendar::daymo

Definition at line 48 of file ice_calendar.f90.

      integer (kind=int_kind) ::&
         daymo(12)              &  ! number of days in each month
      ,  daycal(13)               ! day number at end of month

diagfreq

integer (kind=int_kind) ice_calendar::diagfreq

Definition at line 55 of file ice_calendar.f90.

dtei

real (kind=dbl_kind) ice_calendar::dtei

Definition at line 75 of file ice_calendar.f90.

dtice

real (kind=dbl_kind) ice_calendar::dtice

Definition at line 75 of file ice_calendar.f90.

      real (kind=dbl_kind) ::& 
!         dt                & ! thermodynamics timestep (s)
         dtice,                & ! thermodynamics timestep (s)
!       defined in old ice model  dtice
        dyn_dt            & ! dynamics/transport/ridging timestep (s)
      ,  dtei              & ! 1/dte, where dte is the EVP timestep (1/s)
!      ,  time              & ! total elapsed time (s)
!      ggao conflict
      ,  time_forc         & ! time of last forcing update (s)
      ,  yday               ! day of the year

dumpfreq

character (len=1) ice_calendar::dumpfreq

Definition at line 94 of file ice_calendar.f90.

dumpfreq_n

integer (kind=int_kind) ice_calendar::dumpfreq_n

Definition at line 55 of file ice_calendar.f90.

dyn_dt

real (kind=dbl_kind) ice_calendar::dyn_dt

Definition at line 75 of file ice_calendar.f90.

histfreq

character (len=1) ice_calendar::histfreq

Definition at line 94 of file ice_calendar.f90.

      character (len=1) ::  & 
         histfreq           &! history output frequency, 'y','m','d','1'
      ,  dumpfreq            ! restart frequency, 'y','m','d'

idate

integer (kind=int_kind) ice_calendar::idate

Definition at line 55 of file ice_calendar.f90.

istep

integer (kind=int_kind) ice_calendar::istep

Definition at line 55 of file ice_calendar.f90.

      integer (kind=int_kind) ::  &
         istep     &! local step counter for time loop
      ,  istep0    &! step counter, number of steps taken in previous run
      ,  istep1    &! step counter, number of steps at current timestep
      ,  mday      &! day of the month
      ,  week      &! week of the year
      ,  month     &! 1 \le month \le 12
      ,  monthp    &! last month
      ,  year_init &! initial year
      ,  nyr       &! year number
      ,  idate     &! date (yyyymmdd)
      ,  sec       &! elapsed seconds into date
      ,  npt       &! total number of time steps (dt) 
      ,  ndyn_dt   &! reduced timestep for dynamics: ndyn_dt=dt/dyn_dt
      ,  stop_now           &! if 1, end program execution
      ,  write_restart      &! if 1, write restart now
      ,  cpl_write_history  &! if 1, write history on command from cpl
      ,  diagfreq           &! diagnostic output frequency (10 = once per 10 dt)
      ,  dumpfreq_n          ! restart output frequency (10 = once per 10 d,m,y)

istep0

integer (kind=int_kind) ice_calendar::istep0

Definition at line 55 of file ice_calendar.f90.

istep1

integer (kind=int_kind) ice_calendar::istep1

Definition at line 55 of file ice_calendar.f90.

mday

integer (kind=int_kind) ice_calendar::mday

Definition at line 55 of file ice_calendar.f90.

month

integer (kind=int_kind) ice_calendar::month

Definition at line 55 of file ice_calendar.f90.

monthp

integer (kind=int_kind) ice_calendar::monthp

Definition at line 55 of file ice_calendar.f90.

ndyn_dt

integer (kind=int_kind) ice_calendar::ndyn_dt

Definition at line 55 of file ice_calendar.f90.

new_day

logical (kind=log_kind) ice_calendar::new_day

Definition at line 86 of file ice_calendar.f90.

new_month

logical (kind=log_kind) ice_calendar::new_month

Definition at line 86 of file ice_calendar.f90.

new_week

logical (kind=log_kind) ice_calendar::new_week

Definition at line 86 of file ice_calendar.f90.

new_year

logical (kind=log_kind) ice_calendar::new_year

Definition at line 86 of file ice_calendar.f90.

      logical (kind=log_kind) ::  &
         new_year           &! new year = .true.
      ,  new_month          &! new month = .true.
      ,  new_week           &! new week = .true.
      ,  new_day            &! new day = .true.
      ,  write_ic           &! write initial condition now
      ,  write_history       ! write history now

npt

integer (kind=int_kind) ice_calendar::npt

Definition at line 55 of file ice_calendar.f90.

nyr

integer (kind=int_kind) ice_calendar::nyr

Definition at line 55 of file ice_calendar.f90.

sec

integer (kind=int_kind) ice_calendar::sec

Definition at line 55 of file ice_calendar.f90.

stop_now

integer (kind=int_kind) ice_calendar::stop_now

Definition at line 55 of file ice_calendar.f90.

time_forc

real (kind=dbl_kind) ice_calendar::time_forc

Definition at line 75 of file ice_calendar.f90.

week

integer (kind=int_kind) ice_calendar::week

Definition at line 55 of file ice_calendar.f90.

write_history

logical (kind=log_kind) ice_calendar::write_history

Definition at line 86 of file ice_calendar.f90.

write_ic

logical (kind=log_kind) ice_calendar::write_ic

Definition at line 86 of file ice_calendar.f90.

write_restart

integer (kind=int_kind) ice_calendar::write_restart

Definition at line 55 of file ice_calendar.f90.

yday

real (kind=dbl_kind) ice_calendar::yday

Definition at line 75 of file ice_calendar.f90.

year_init

integer (kind=int_kind) ice_calendar::year_init

Definition at line 55 of file ice_calendar.f90.