days_since_1900 Function

public pure function days_since_1900(y, m, d) result(dnum)

Days since the astronomical origin 1900-01-01 00:00 UT.

Arguments

Type IntentOptional Attributes Name
integer, intent(in) :: y
integer, intent(in) :: m
integer, intent(in) :: d

Return Value real(kind=wp)


Calls

proc~~days_since_1900~~CallsGraph proc~days_since_1900 days_since_1900 proc~gregorian_day_number gregorian_day_number proc~days_since_1900->proc~gregorian_day_number

Called by

proc~~days_since_1900~~CalledByGraph proc~days_since_1900 days_since_1900 proc~configure_ocean_bc configure_ocean_bc proc~configure_ocean_bc->proc~days_since_1900 proc~configure_ocean_tides configure_ocean_tides proc~configure_ocean_tides->proc~days_since_1900 proc~engine_setup engine_setup proc~engine_setup->proc~configure_ocean_bc proc~engine_setup->proc~configure_ocean_tides proc~complete_ocean_create complete_ocean_create proc~complete_ocean_create->proc~engine_setup proc~driver_run_ocean driver_run_ocean proc~driver_run_ocean->proc~engine_setup proc~driver_validate driver_validate proc~driver_validate->proc~engine_setup proc~driver_run driver_run proc~driver_run->proc~driver_run_ocean proc~rdb_ocean_create_finalize rdb_ocean_create_finalize proc~rdb_ocean_create_finalize->proc~complete_ocean_create proc~rdb_ocean_create_from_string rdb_ocean_create_from_string proc~rdb_ocean_create_from_string->proc~complete_ocean_create

Source Code

   pure function days_since_1900(y, m, d) result(dnum)
      !! Days since the astronomical origin 1900-01-01 00:00 UT.
      integer, intent(in) :: y, m, d
      real(wp) :: dnum
      dnum = real(gregorian_day_number(y, m, d) &
                  - gregorian_day_number(1900, 1, 1), wp)
   end function days_since_1900