! ! $Header$ ! subroutine conf_phys(ocean, ok_veget, ok_journe, ok_mensuel, ok_instan, & & fact_cldcon, facttemps,ok_newmicro,iflag_cldcon, & & ratqsbas,ratqshaut) use IOIPSL implicit none #include "conema3.h" #include "fisrtilp.inc" #include "nuage.h" ! ! Configuration de la "physique" de LMDZ a l'aide de la fonction ! GETIN de IOIPSL ! ! LF 05/2001 ! ! ! ocean: type d'ocean (force, slab, couple) ! ok_veget: type de modele de vegetation ! ok_journe: sorties journalieres ! ok_mensuel: sorties mensuelles ! ok_instan: sorties instantanees ! Sortie: character (len = 6) :: ocean logical :: ok_veget, ok_newmicro logical :: ok_journe, ok_mensuel, ok_instan real :: fact_cldcon, facttemps,ratqsbas,ratqshaut integer :: iflag_cldcon ! Local integer :: numout = 6 ! ! ! !Config Key = OCEAN !Config Desc = Type d'ocean !Config Def = force !Config Help = Type d'ocean utilise: force, slab,couple ! ocean = 'force ' call getin('OCEAN', ocean) ! !Config Key = VEGET !Config Desc = Type de modele de vegetation !Config Def = .false. !Config Help = Type de modele de vegetation utilise ! ok_veget = .false. call getin('VEGET', ok_veget) ! !Config Key = OK_journe !Config Desc = Pour des sorties journalieres !Config Def = .false. !Config Help = Pour creer le fichier histday contenant les sorties ! journalieres ! ok_journe = .false. call getin('OK_journe', ok_journe) ! !Config Key = OK_mensuel !Config Desc = Pour des sorties mensuelles !Config Def = .true. !Config Help = Pour creer le fichier histmth contenant les sorties ! mensuelles ! ok_mensuel = .true. call getin('OK_mensuel', ok_mensuel) ! !Config Key = OK_instan !Config Desc = Pour des sorties instantanees !Config Def = .false. !Config Help = Pour creer le fichier histins contenant les sorties ! instantanees ! ok_instan = .false. call getin('OK_instan', ok_instan) !! !! KE ! !Config Key = epmax !Config Desc = Efficacite precip !Config Def = 0.993 !Config Help = ! epmax = .993 call getin('epmax', epmax) ! !Config Key = ok_adj_ema !Config Desc = !Config Def = false !Config Help = ! ok_adj_ema = .false. call getin('ok_adj_ema',ok_adj_ema) ! !Config Key = iflag_clw !Config Desc = !Config Def = 0 !Config Help = ! iflag_clw = 0 call getin('iflag_clw',iflag_clw) ! !Config Key = cld_lc_lsc !Config Desc = !Config Def = 2.6e-4 !Config Help = ! cld_lc_lsc = 2.6e-4 call getin('cld_lc_lsc',cld_lc_lsc) ! !Config Key = cld_lc_con !Config Desc = !Config Def = 2.6e-4 !Config Help = ! cld_lc_con = 2.6e-4 call getin('cld_lc_con',cld_lc_con) ! !Config Key = cld_tau_lsc !Config Desc = !Config Def = 3600. !Config Help = ! cld_tau_lsc = 3600. call getin('cld_tau_lsc',cld_tau_lsc) ! !Config Key = cld_tau_con !Config Desc = !Config Def = 3600. !Config Help = ! cld_tau_con = 3600. call getin('cld_tau_con',cld_tau_con) ! !Config Key = ffallv_lsc !Config Desc = !Config Def = 1. !Config Help = ! ffallv_lsc = 1. call getin('ffallv_lsc',ffallv_lsc) ! !Config Key = ffallv_con !Config Desc = !Config Def = 1. !Config Help = ! ffallv_con = 1. call getin('ffallv_con',ffallv_con) ! !Config Key = coef_eva !Config Desc = !Config Def = 2.e-5 !Config Help = ! coef_eva = 2.e-5 call getin('coef_eva',coef_eva) ! !Config Key = reevap_ice !Config Desc = !Config Def = .false. !Config Help = ! reevap_ice = .false. call getin('reevap_ice',reevap_ice) ! !Config Key = iflag_cldcon !Config Desc = !Config Def = 1 !Config Help = ! iflag_cldcon = 1 call getin('iflag_cldcon',iflag_cldcon) ! !Config Key = iflag_pdf !Config Desc = !Config Def = 0 !Config Help = ! iflag_pdf = 0 call getin('iflag_pdf',iflag_pdf) ! !Config Key = fact_cldcon !Config Desc = !Config Def = 0.375 !Config Help = ! fact_cldcon = 0.375 call getin('fact_cldcon',fact_cldcon) ! !Config Key = facttemps !Config Desc = !Config Def = 1.e-4 !Config Help = ! facttemps = 1.e-4 call getin('facttemps',facttemps) ! !Config Key = ok_newmicro !Config Desc = !Config Def = .true. !Config Help = ! ok_newmicro = .true. call getin('ok_newmicro',ok_newmicro) ! !Config Key = ratqsbas !Config Desc = !Config Def = 0.01 !Config Help = ! ratqsbas = 0.01 call getin('ratqsbas',ratqsbas) ! !Config Key = ratqshaut !Config Desc = !Config Def = 0.3 !Config Help = ! ratqshaut = 0.3 call getin('ratqshaut',ratqshaut) ! !Config Key = rad_froid !Config Desc = !Config Def = 35.0 !Config Help = ! rad_froid = 35.0 call getin('rad_froid',rad_froid) ! !Config Key = rad_chau1 !Config Desc = !Config Def = 13.0 !Config Help = ! rad_chau1 = 13.0 call getin('rad_chau1',rad_chau1) ! !Config Key = rad_chau2 !Config Desc = !Config Def = 9.0 !Config Help = ! rad_chau2 = 9.0 call getin('rad_chau2',rad_chau2) ! !Config Key = !Config Desc = !Config Def = !Config Help = ! ! = ! call getin('',) ! ! ! ! write(numout,*)' ##############################################' write(numout,*)' Configuration des parametres de la physique: ' write(numout,*)' Config ocean = ', ocean write(numout,*)' Config veget = ', ok_veget write(numout,*)' Sortie journaliere = ', ok_journe write(numout,*)' Sortie mensuelle = ', ok_mensuel write(numout,*)' Sortie instantanee = ', ok_instan write(numout,*)' epmax = ', epmax write(numout,*)' ok_adj_ema = ', ok_adj_ema write(numout,*)' iflag_clw = ', iflag_clw write(numout,*)' cld_lc_lsc = ', cld_lc_lsc write(numout,*)' cld_lc_con = ', cld_lc_con write(numout,*)' cld_tau_lsc = ', cld_tau_lsc write(numout,*)' cld_tau_con = ', cld_tau_con write(numout,*)' ffallv_lsc = ', ffallv_lsc write(numout,*)' ffallv_con = ', ffallv_con write(numout,*)' coef_eva = ', coef_eva write(numout,*)' reevap_ice = ', reevap_ice write(numout,*)' iflag_pdf = ', iflag_pdf write(numout,*)' iflag_cldcon = ', iflag_cldcon write(numout,*)' fact_cldcon = ', fact_cldcon write(numout,*)' facttemps = ', facttemps write(numout,*)' ok_newmicro = ',ok_newmicro write(numout,*)' ratqsbas = ',ratqsbas write(numout,*)' ratqshaut = ',ratqshaut return end subroutine conf_phys