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	guez	12	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	guez	13	LOGICAL:: ok_orodr= .TRUE. ! orodr pour l'orographie
21	guez	12
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	guez	13	! Flag pour la convection :
35			! 1 LMD,
36			! 2 Tiedtke,
37			! 3 CCM(NCAR)
38			! 3 KE
39			! 4 KE vect
40	guez	12
41	guez	13	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	guez	12	end module clesphys2