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 ?)
  ! Option qui pourait un string afin de pouvoir
  ! plus de choix ! Ou meme une liste d'options

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

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

  LOGICAL:: ok_limitvrai = .FALSE.
  ! On peut forcer le modele a lire le fichier SST de la bonne
  ! annee. C'est une tres bonne idee, pourquoi ne pas mettre toujours
  ! a y ?

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

  INTEGER:: iflag_con = 2
  ! Flag pour la convection :
  ! 1 LMD,
  ! 2 Tiedtke,
  ! 3 CCM(NCAR)  
  ! 3 KE
  ! 4 KE vect

contains

  subroutine read_clesphys2

    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=clesphys2_nml)

    select case (iflag_con)
    case (1)
       PRINT *, 'Schéma convection LMD'
    case (2)
       PRINT *, 'Schéma convection Tiedtke'
    case (3)
       PRINT *, 'Schéma convection CCM'
    END select

  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'éteindre le cycle diurne.
9	! Peut être utile pour accélérer le code.
10
11	LOGICAL:: soil_model = .TRUE.
12	! Choix du modele de sol (Thermique ?)
13	! Option qui pourait un string afin de pouvoir
14	! plus de choix ! Ou meme une liste d'options
15
16	LOGICAL:: new_oliq = .TRUE.
17	! Permet de mettre en route la nouvelle parametrisation de l'eau liquide
18
19	LOGICAL:: ok_orodr = .TRUE. ! pour l'orographie
20	LOGICAL:: ok_orolf = .TRUE. ! pour l'orographie
21
22	LOGICAL:: ok_limitvrai = .FALSE.
23	! On peut forcer le modele a lire le fichier SST de la bonne
24	! annee. C'est une tres bonne idee, pourquoi ne pas mettre toujours
25	! a y ?
26
27	INTEGER:: nbapp_rad = 12
28	! (nombre d'appels des routines de rayonnements par jour)
29
30	INTEGER:: iflag_con = 2
31	! Flag pour la convection :
32	! 1 LMD,
33	! 2 Tiedtke,
34	! 3 CCM(NCAR)
35	! 3 KE
36	! 4 KE vect
37
38	contains
39
40	subroutine read_clesphys2
41
42	namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &
43	ok_orodr, 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=clesphys2_nml)
50
51	select case (iflag_con)
52	case (1)
53	PRINT *, 'Schéma convection LMD'
54	case (2)
55	PRINT *, 'Schéma convection Tiedtke'
56	case (3)
57	PRINT *, 'Schéma convection CCM'
58	END select
59
60	end subroutine read_clesphys2
61
62	end module clesphys2