trunk/phylmd/YOMCST.f

module YOMCST

  implicit none

  ! From phylmd/YOMCST.h, version 1.2 2005/06/06 13:16:33

  ! A1.1.bis Constantes concernant l'orbite de la Terre
  ! Default values from AMIP II

  REAL, protected, save:: R_ecc = 0.016715 ! excentricité
  real, protected, save:: R_peri = 102.7 ! équinoxe, en degr\'es
  real, protected, save:: R_incl = 23.441 ! inclinaison, en degr\'es

contains

  subroutine read_YOMCST

    use unit_nml_m, only: unit_nml

    namelist /YOMCST_nml/ R_ecc, R_peri, R_incl

    !------------------------------------

    print *, "Enter namelist 'YOMCST_nml'."
    read(unit=*, nml=YOMCST_nml)
    write(unit_nml, nml=YOMCST_nml)

  end subroutine read_YOMCST

end module YOMCST
1	module YOMCST
2
3	implicit none
4
5	! From phylmd/YOMCST.h, version 1.2 2005/06/06 13:16:33
6
7	! A1.1.bis Constantes concernant l'orbite de la Terre
8	! Default values from AMIP II
9
10	REAL, protected, save:: R_ecc = 0.016715 ! excentricité
11	real, protected, save:: R_peri = 102.7 ! équinoxe, en degr\'es
12	real, protected, save:: R_incl = 23.441 ! inclinaison, en degr\'es
13
14	contains
15
16	subroutine read_YOMCST
17
18	use unit_nml_m, only: unit_nml
19
20	namelist /YOMCST_nml/ R_ecc, R_peri, R_incl
21
22	!------------------------------------
23
24	print *, "Enter namelist 'YOMCST_nml'."
25	read(unit=*, nml=YOMCST_nml)
26	write(unit_nml, nml=YOMCST_nml)
27
28	end subroutine read_YOMCST
29
30	end module YOMCST