trunk/phylmd/clesphys2.f90

module clesphys2

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

  implicit none

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

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

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

  logical, protected:: 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/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	module clesphys2
2
3	! From version 1.3 2005/06/06 13:16:33
4
5	implicit none
6
7	! Pour l'orographie:
8	LOGICAL, protected:: ok_orodr = .TRUE.
9	LOGICAL, protected:: ok_orolf = .TRUE.
10
11	LOGICAL, protected:: ok_limitvrai = .FALSE.
12	! On peut forcer le modele a lire le fichier SST de la bonne
13	! annee.
14
15	INTEGER, protected:: nbapp_rad = 12
16	! nombre d'appels des routines de rayonnements par jour
17
18	logical, protected:: conv_emanuel = .true.
19	! convection scheme of Emanuel, else Tiedtke
20
21	contains
22
23	subroutine read_clesphys2
24
25	use unit_nml_m, only: unit_nml
26	use nr_util, only: assert
27	use conf_gcm_m, only: day_step, iphysiq
28
29	namelist /clesphys2_nml/ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, &
30	conv_emanuel
31
32	!------------------------------------
33
34	print *, "Enter namelist 'clesphys2_nml'."
35	read(unit=*, nml=clesphys2_nml)
36	write(unit_nml, nml=clesphys2_nml)
37	call assert(mod(day_step / iphysiq, nbapp_rad) == 0, &
38	"read_clesphys2 nbapp_rad")
39	call assert(nbapp_rad >= 4, &
40	"read_clesphys2: minimum 4 calls to radiative transfer per day")
41
42	end subroutine read_clesphys2
43
44	end module clesphys2