Sources/phylmd/clesphys2.f

module clesphys2

  ! From version 1.3 2005/06/06 13:16:33

  implicit none

  LOGICAL:: cycle_diurne = .TRUE.
  ! Cette option permet d'éteindre le cycle diurne.
  ! Peut être utile pour accélérer le code.

  LOGICAL:: soil_model = .TRUE.
  ! Choix du modele de sol (Thermique ?)

  LOGICAL:: new_oliq = .TRUE.
  ! Permet de mettre en route la nouvelle parametrisation de l'eau liquide

  ! Pour l'orographie:
  LOGICAL:: ok_orodr = .TRUE.
  LOGICAL:: ok_orolf = .TRUE.

  LOGICAL:: ok_limitvrai = .FALSE.
  ! On peut forcer le modele a lire le fichier SST de la bonne
  ! annee.

  INTEGER:: nbapp_rad = 12
  ! nombre d'appels des routines de rayonnements par jour

  INTEGER:: iflag_con = 2
  ! Convection scheme:
  ! 2 Tiedtke
  ! 3 Emanuel
  ! 4 Emanuel vect

contains

  subroutine read_clesphys2

    use unit_nml_m, only: unit_nml

    namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &
         ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con

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

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

    if (iflag_con <= 1) then
       print *, "bad value for iflag_con"
       stop 1
    end if

  end subroutine read_clesphys2

end module clesphys2
1	guez	12	module clesphys2
2
3	guez	51	! From version 1.3 2005/06/06 13:16:33
4	guez	12
5			implicit none
6
7	guez	51	LOGICAL:: cycle_diurne = .TRUE.
8	guez	12	! Cette option permet d'éteindre le cycle diurne.
9			! Peut être utile pour accélérer le code.
10
11	guez	51	LOGICAL:: soil_model = .TRUE.
12			! Choix du modele de sol (Thermique ?)
13	guez	12
14	guez	51	LOGICAL:: new_oliq = .TRUE.
15			! Permet de mettre en route la nouvelle parametrisation de l'eau liquide
16	guez	12
17	guez	69	! Pour l'orographie:
18			LOGICAL:: ok_orodr = .TRUE.
19			LOGICAL:: ok_orolf = .TRUE.
20	guez	12
21	guez	51	LOGICAL:: ok_limitvrai = .FALSE.
22			! On peut forcer le modele a lire le fichier SST de la bonne
23	guez	69	! annee.
24	guez	12
25	guez	51	INTEGER:: nbapp_rad = 12
26	guez	69	! nombre d'appels des routines de rayonnements par jour
27	guez	12
28			INTEGER:: iflag_con = 2
29	guez	69	! Convection scheme:
30			! 2 Tiedtke
31			! 3 Emanuel
32			! 4 Emanuel vect
33	guez	12
34	guez	13	contains
35
36			subroutine read_clesphys2
37
38	guez	57	use unit_nml_m, only: unit_nml
39
40	guez	13	namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &
41			ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con
42
43			!------------------------------------
44
45			print *, "Enter namelist 'clesphys2_nml'."
46			read(unit=*, nml=clesphys2_nml)
47	guez	57	write(unit_nml, nml=clesphys2_nml)
48	guez	13
49	guez	69	if (iflag_con <= 1) then
50			print *, "bad value for iflag_con"
51			stop 1
52			end if
53	guez	13
54			end subroutine read_clesphys2
55
56	guez	12	end module clesphys2