source: LMDZ.3.3/branches/rel-LF/libf/phylmd/conf_phys.F90 @ 345

Last change on this file since 345 was 241, checked in by lmdzadmin, 23 years ago

Cosmetique
LF

  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 2.1 KB
Line 
1!
2! $Header$
3!
4
5  subroutine conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, ok_instan)
6
7   use IOIPSL
8   implicit none
9
10!
11! Configuration de la "physique" de LMDZ a l'aide de la fonction
12! GETIN de IOIPSL
13!
14! LF 05/2001
15!
16
17!
18! ocean:      type d'ocean (force, slab, couple)
19! ok_veget:   type de modele de vegetation
20! ok_journe:  sorties journalieres
21! ok_mensuel: sorties mensuelles
22! ok_instan:  sorties instantanees
23
24
25
26! Sortie:
27  character (len = 6)  :: ocean
28  logical              :: ok_veget
29  logical              :: ok_journe, ok_mensuel, ok_instan
30! Local
31  integer              :: numout = 6
32
33!
34!
35!
36
37
38!Config Key  = OCEAN
39!Config Desc = Type d'ocean
40!Config Def  = force
41!Config Help = Type d'ocean utilise: force, slab,couple
42!
43  ocean = 'force '
44  call getin('OCEAN', ocean)
45!
46!Config Key  = VEGET
47!Config Desc = Type de modele de vegetation
48!Config Def  = .false.
49!Config Help = Type de modele de vegetation utilise
50!
51  ok_veget = .false.
52  call getin('VEGET', ok_veget)
53!
54!Config Key  = OK_journe
55!Config Desc = Pour des sorties journalieres
56!Config Def  = .false.
57!Config Help = Pour creer le fichier histday contenant les sorties
58!              journalieres
59!
60  ok_journe = .false.
61  call getin('OK_journe', ok_journe)
62!
63!Config Key  = OK_mensuel
64!Config Desc = Pour des sorties mensuelles
65!Config Def  = .true.
66!Config Help = Pour creer le fichier histmth contenant les sorties
67!              mensuelles
68!
69  ok_mensuel = .true.
70  call getin('OK_mensuel', ok_mensuel)
71!
72!Config Key  = OK_instan
73!Config Desc = Pour des sorties instantanees
74!Config Def  = .false.
75!Config Help = Pour creer le fichier histins contenant les sorties
76!              instantanees
77!
78  ok_instan = .false.
79  call getin('OK_instan', ok_instan)
80
81!
82!
83!
84
85  write(numout,*)' ##############################################'
86  write(numout,*)' Configuration des parametres de la physique: '
87  write(numout,*)' Config ocean = ', ocean
88  write(numout,*)' Config veget = ', ok_veget
89  write(numout,*)' Sortie journaliere = ', ok_journe
90  write(numout,*)' Sortie mensuelle = ', ok_mensuel
91  write(numout,*)' Sortie instantanee = ', ok_instan
92
93
94  return
95
96  end subroutine conf_phys
97
Note: See TracBrowser for help on using the repository browser.