Sources/phylmd/clesphys2.f

module clesphys2

  ! v 1.3 2005/06/06 13:16:33 fairhead

  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.
  ! Help = 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.
  ! Help = Permet de mettre en route la
  ! nouvelle parametrisation de l'eau liquide

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

  LOGICAL:: ok_orolf = .TRUE.
  ! Desc = Orolf  ou  non   pour l orographie

  LOGICAL:: ok_limitvrai= .FALSE.
  ! Help = 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	! v 1.3 2005/06/06 13:16:33 fairhead
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	! Help = 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	! Help = Permet de mettre en route la
18	! nouvelle parametrisation de l'eau liquide
19
20	LOGICAL:: ok_orodr= .TRUE. ! orodr pour l'orographie
21
22	LOGICAL:: ok_orolf = .TRUE.
23	! Desc = Orolf ou non pour l orographie
24
25	LOGICAL:: ok_limitvrai= .FALSE.
26	! Help = On peut forcer le modele a lire le
27	! fichier SST de la bonne annee. C'est une tres bonne
28	! idee, pourquoi ne pas mettre toujours a y ?
29
30	INTEGER:: nbapp_rad= 12
31	! (nombre d'appels des routines de rayonnements par jour)
32
33	INTEGER:: iflag_con = 2
34	! Flag pour la convection :
35	! 1 LMD,
36	! 2 Tiedtke,
37	! 3 CCM(NCAR)
38	! 3 KE
39	! 4 KE vect
40
41	contains
42
43	subroutine read_clesphys2
44
45	namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &
46	ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con
47
48	!------------------------------------
49
50	print *, "Enter namelist 'clesphys2_nml'."
51	read(unit=*, nml=clesphys2_nml)
52	write(unit=*, nml=clesphys2_nml)
53
54	select case (iflag_con)
55	case (1)
56	PRINT *, 'Schéma convection LMD'
57	case (2)
58	PRINT *, 'Schéma convection Tiedtke'
59	case (3)
60	PRINT *, 'Schéma convection CCM'
61	END select
62
63	end subroutine read_clesphys2
64
65	end module clesphys2