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 |
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) |
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 |