/[lmdze]/trunk/phylmd/conf_phys.f
ViewVC logotype

Diff of /trunk/phylmd/conf_phys.f

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3 by guez, Wed Feb 27 13:16:39 2008 UTC revision 12 by guez, Mon Jul 21 16:05:07 2008 UTC
# Line 43  contains Line 43  contains
43      ! bl95_b*: parameters in the formula to link CDNC to aerosol mass conc      ! bl95_b*: parameters in the formula to link CDNC to aerosol mass conc
44    
45      ! Sortie:      ! Sortie:
46      character (len = 6)  :: ocean      character(len=*), intent(out):: ocean
47      logical              :: ok_veget, ok_newmicro      logical              :: ok_veget, ok_newmicro
48      logical              :: ok_journe, ok_mensuel, ok_instan              logical              :: ok_journe, ok_mensuel, ok_instan        
49      LOGICAL              :: ok_ade, ok_aie      LOGICAL              :: ok_ade, ok_aie
# Line 64  contains Line 64  contains
64      !Config Key  = OCEAN      !Config Key  = OCEAN
65      !Config Desc = Type d'ocean      !Config Desc = Type d'ocean
66      !Config Def  = force      !Config Def  = force
67      !Config Help = Type d'ocean utilise: force, slab,couple      !Config Help = Type d'ocean utilise: force ou slab mais pas couple
68      !      !
69      ocean = 'force '      ocean = 'force '
70      call getin('OCEAN', ocean)      call getin('OCEAN', ocean)
# Line 698  contains Line 698  contains
698      bug_ozone = .false.      bug_ozone = .false.
699      call getin('bug_ozone',bug_ozone)      call getin('bug_ozone',bug_ozone)
700    
   
701      write(numout,*)' *********'      write(numout,*)' *********'
702      write(numout,*)' Configuration des parametres de la physique: '      write(numout,*)' Configuration des parametres de la physique: '
703      write(numout,*)' Config ocean = ', ocean      write(numout,*)' Config ocean = ', ocean
Legend:
Removed from v.3  
changed lines
  Added in v.12
  ViewVC Help
Powered by ViewVC 1.1.21