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'\'eteindre le cycle diurne. Peut \^etre utile
  ! pour acc\'el\'erer 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
    use nr_util, only: assert
    use conf_gcm_m, only: day_step, iphysiq

    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)
    call assert(iflag_con >= 2 .and. iflag_con <= 4, "read_clesphys2 iflag_con")
    call assert(mod(day_step / iphysiq, nbapp_rad) == 0, &
         "read_clesphys2 nbapp_rad")
    call assert(nbapp_rad >= 4 .or. .not. cycle_diurne, &
         "read_clesphys2: minimum 4 calls to radiative transfer per day if " &
         // "cycle diurne")

  end subroutine read_clesphys2

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