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

    use unit_nml_m, only: unit_nml

    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, 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	guez	51	! From version 1.3 2005/06/06 13:16:33
4	guez	12
5			implicit none
6
7	guez	51	LOGICAL:: cycle_diurne = .TRUE.
8	guez	12	! Cette option permet d'éteindre le cycle diurne.
9			! Peut être utile pour accélérer le code.
10
11	guez	51	LOGICAL:: soil_model = .TRUE.
12			! Choix du modele de sol (Thermique ?)
13	guez	12	! Option qui pourait un string afin de pouvoir
14			! plus de choix ! Ou meme une liste d'options
15
16	guez	51	LOGICAL:: new_oliq = .TRUE.
17			! Permet de mettre en route la nouvelle parametrisation de l'eau liquide
18	guez	12
19	guez	51	LOGICAL:: ok_orodr = .TRUE. ! pour l'orographie
20			LOGICAL:: ok_orolf = .TRUE. ! pour l'orographie
21	guez	12
22	guez	51	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	guez	12
27	guez	51	INTEGER:: nbapp_rad = 12
28	guez	12	! (nombre d'appels des routines de rayonnements par jour)
29
30			INTEGER:: iflag_con = 2
31	guez	13	! Flag pour la convection :
32			! 1 LMD,
33			! 2 Tiedtke,
34			! 3 CCM(NCAR)
35			! 3 KE
36			! 4 KE vect
37	guez	12
38	guez	13	contains
39
40			subroutine read_clesphys2
41
42	guez	57	use unit_nml_m, only: unit_nml
43
44	guez	13	namelist /clesphys2_nml/cycle_diurne, soil_model, new_oliq, &
45			ok_orodr, ok_orolf, ok_limitvrai, nbapp_rad, iflag_con
46
47			!------------------------------------
48
49			print *, "Enter namelist 'clesphys2_nml'."
50			read(unit=*, nml=clesphys2_nml)
51	guez	57	write(unit_nml, nml=clesphys2_nml)
52	guez	13
53			select case (iflag_con)
54			case (1)
55			PRINT *, 'Schéma convection LMD'
56			case (2)
57			PRINT *, 'Schéma convection Tiedtke'
58			case (3)
59			PRINT *, 'Schéma convection CCM'
60			END select
61
62			end subroutine read_clesphys2
63
64	guez	12	end module clesphys2