Sources/phylmd/clesphys2.f

module clesphys2

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

  implicit none

  LOGICAL:: soil_model = .TRUE. ! choix du mod\`ele 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

  logical:: conv_emanuel = .true. ! convection scheme of Emanuel, else Tiedtke

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/soil_model, new_oliq, ok_orodr, ok_orolf, &
         ok_limitvrai, nbapp_rad, conv_emanuel

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

    print *, "Enter namelist 'clesphys2_nml'."
    read(unit=*, nml=clesphys2_nml)
    write(unit_nml, nml=clesphys2_nml)
    call assert(mod(day_step / iphysiq, nbapp_rad) == 0, &
         "read_clesphys2 nbapp_rad")
    call assert(nbapp_rad >= 4, &
         "read_clesphys2: minimum 4 calls to radiative transfer per day")

  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	222	LOGICAL:: soil_model = .TRUE. ! choix du mod\`ele de sol (thermique ?)
8	guez	12
9	guez	51	LOGICAL:: new_oliq = .TRUE.
10			! Permet de mettre en route la nouvelle parametrisation de l'eau liquide
11	guez	12
12	guez	69	! Pour l'orographie:
13			LOGICAL:: ok_orodr = .TRUE.
14			LOGICAL:: ok_orolf = .TRUE.
15	guez	12
16	guez	51	LOGICAL:: ok_limitvrai = .FALSE.
17			! On peut forcer le modele a lire le fichier SST de la bonne
18	guez	69	! annee.
19	guez	12
20	guez	51	INTEGER:: nbapp_rad = 12
21	guez	69	! nombre d'appels des routines de rayonnements par jour
22	guez	12
23	guez	182	logical:: conv_emanuel = .true. ! convection scheme of Emanuel, else Tiedtke
24	guez	12
25	guez	13	contains
26
27			subroutine read_clesphys2
28
29	guez	57	use unit_nml_m, only: unit_nml
30	guez	99	use nr_util, only: assert
31	guez	154	use conf_gcm_m, only: day_step, iphysiq
32	guez	57
33	guez	209	namelist /clesphys2_nml/soil_model, new_oliq, ok_orodr, ok_orolf, &
34			ok_limitvrai, nbapp_rad, conv_emanuel
35	guez	13
36			!------------------------------------
37
38			print *, "Enter namelist 'clesphys2_nml'."
39			read(unit=*, nml=clesphys2_nml)
40	guez	57	write(unit_nml, nml=clesphys2_nml)
41	guez	154	call assert(mod(day_step / iphysiq, nbapp_rad) == 0, &
42			"read_clesphys2 nbapp_rad")
43	guez	209	call assert(nbapp_rad >= 4, &
44			"read_clesphys2: minimum 4 calls to radiative transfer per day")
45	guez	13
46			end subroutine read_clesphys2
47
48	guez	12	end module clesphys2