phys_cal_mod.F90

Go to the documentation of this file.

! $Id:$
MODULE phys_cal_mod
! This module contains information on the calendar at the actual time step

  SAVE

  INTEGER :: year_cur      ! current year
  INTEGER :: mth_cur       ! current month
  INTEGER :: day_cur       ! current day
  INTEGER :: days_elapsed  ! number of whole days since start of the simulation 
  INTEGER :: mth_len       ! number of days in the current month
  REAL    :: hour
  REAL    :: jD_1jan
  REAL    :: jH_1jan
  REAL    :: xjour


CONTAINS
  
  SUBROUTINE phys_cal_update(jD_cur, jH_cur)
    ! This subroutine updates the module saved variables.

    USE ioipsl
    
    REAL, INTENT(IN) :: jd_cur ! jour courant a l'appel de la physique (jour julien)
    REAL, INTENT(IN) :: jh_cur ! heure courante a l'appel de la physique (jour julien)
    
    CALL ju2ymds(jd_cur+jh_cur, year_cur, mth_cur, day_cur, hour)
    CALL ymds2ju(year_cur, 1, 1, 0., jd_1jan)
    
    jh_1jan = jd_1jan - int(jd_1jan)
    jd_1jan = int(jd_1jan) 
    xjour = jd_cur - jd_1jan
    days_elapsed = jd_cur - jd_1jan

    ! Get lenght of acutual month
    mth_len = ioget_mon_len(year_cur,mth_cur)

  END SUBROUTINE phys_cal_update

END MODULE phys_cal_mod