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	guez	3	module YOMCST
2
3			implicit none
4
5			! From phylmd/YOMCST.h, version 1.2 2005/06/06 13:16:33
6
7	guez	125	! A1.1.bis Constantes concernant l'orbite de la Terre
8			! Default values from AMIP II
9	guez	3
10	guez	318	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	guez	3
14	guez	125	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	guez	3	end module YOMCST