! ! $Header: /home/cvsroot/LMDZ4/libf/phylmd/conf_phys.F90,v 1.3 2005/02/07 15:15:31 fairhead Exp $ ! ! ! subroutine conf_phys(ok_journe, ok_mensuel, ok_instan, & & if_ebil) use IOIPSL implicit none #include "YOMCST.h" #include "clesphys.h" #include "compbl.h" ! ok_journe: sorties journalieres ! ok_mensuel: sorties mensuelles ! ok_instan: sorties instantanees ! Sortie: logical :: ok_journe, ok_mensuel, ok_instan integer :: if_ebil ! Local integer :: numout = 6 ! ! Configuration de la "physique" de LMDZ a l'aide de la fonction ! GETIN de IOIPSL ! ! LF 05/2001 ! !--- Ca lit le physiq.def --- !******************* parametres anciennement lus dans gcm.def !Config Key = cycle_diurne !Config Desc = Cycle diurne !Config Def = y !Config Help = Cette option permet d'eteidre le cycle diurne. !Config Peut etre util pour accelerer le code ! cycle_diurne = .TRUE. CALL getin('cycle_diurne',cycle_diurne) !Config Key = soil_model !Config Desc = Modele de sol !Config Def = y !Config Help = Choix du modele de sol (Thermique ?) !Config Option qui pourait un string afin de pouvoir !Config plus de choix ! Ou meme une liste d'options ! soil_model = .TRUE. CALL getin('soil_model',soil_model) !Config Key = ok_orodr !Config Desc = Oro drag !Config Def = y !Config Help = GW drag orographie !Config ok_orodr = .TRUE. CALL getin('ok_orodr',ok_orodr) !Config Key = ok_orolf !Config Desc = Oro lift !Config Def = n !Config Help = GW lift orographie (pas utilise) ok_orolf = .TRUE. CALL getin('ok_orolf', ok_orolf) !Config Key = ok_gw_nonoro !Config Desc = Gravity waves parameterization !Config Def = n !Config Help = GW drag non-orographique ok_gw_nonoro = .FALSE. CALL getin('ok_gw_nonoro',ok_gw_nonoro) !Config Key = nbapp_rad !Config Desc = Frequence d'appel au rayonnement !Config Def = 12 !Config Help = Nombre d'appels des routines de rayonnements !Config par jour. nbapp_rad = 12 CALL getin('nbapp_rad',nbapp_rad) !Config Key = nbapp_chim !Config Desc = Frequence d'appel a la chimie !Config Def = 1 !Config Help = Nombre d'appels des routines de chimie !Config par jour. nbapp_chim = 1 CALL getin('nbapp_chim',nbapp_chim) !Config Key = iflag_con !Config Desc = Flag de convection !Config Def = 0 !Config Help = Flag pour la convection les options suivantes existent : !Config 0 : ajsec simple (VENUS, TITAN) !Config 1 pour LMD, !Config 2 pour Tiedtke, !Config 3 pour CCM(NCAR) iflag_con = 0 CALL getin('iflag_con',iflag_con) !******************* fin parametres anciennement lus dans gcm.def !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) ! !Config Key = ecritphy !Config Desc = Frequence d'ecriture dans histmth et histins !Config Def = 1 !Config Help = frequence de l'ecriture du fichier histmth et histins !Config en jours. ! ecriphy = 1. CALL getin('ecritphy', ecriphy) ! ! !Config Key = if_ebil !Config Desc = Niveau de sortie pour les diags bilan d'energie !Config Def = 0 !Config Help = ! ! if_ebil = 0 call getin('if_ebil', if_ebil) !! !! Constante solaire & Parametres orbitaux & taux gaz effet de serre BEG !! !Config Key = R_ecc !Config Desc = Excentricite !Config Def = 0.006787 !Config Help = ! ! VENUS ! R_ecc = 0.006787 R_ecc = 0.0 call getin('R_ecc', R_ecc) !! !Config Key = R_peri !Config Desc = Equinoxe !Config Def = !Config Help = ! ! VENUS R_peri = 0. call getin('R_peri', R_peri) !! !Config Key = R_incl !Config Desc = Inclinaison !Config Def = !Config Help = ! ! VENUS R_incl = 0.0 call getin('R_incl', R_incl) ! !Config Key = solaire !Config Desc = Constante solaire en W/m2 ! VENUS !Config Def = 2620. !Config Help = ! solaire = 2620. call getin('solaire', solaire) ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! PARAMETER FOR THE PLANETARY BOUNDARY LAYER AND SOIL !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !Config Key = iflag_pbl !Config Desc = !Config Def = 1 !Config Help = ! ! 2 = calculs Cd et K simples pour VENUS : ! parametres = z0, lmixmin, ksta (en dur: umin2,ric,cepdu2,karman) ! 1 = calculs Cd et K issus LMDZ Terre ! parametres = ksta, ok_kzmin (et plein d'autres en dur...) ! 6-9 = schema des thermiques Fred iflag_pbl = 1 call getin('iflag_pbl',iflag_pbl) ! !Config Key = ksta !Config Desc = !Config Def = 1.0e-7 !Config Help = ! ksta = 1.0e-7 call getin('ksta',ksta) ! !Config Key = z0 !Config Desc = !Config Def = 1.0e-2 !Config Help = ! z0 = 1.0e-2 call getin('z0',z0) ! !Config Key = lmixmin !Config Desc = !Config Def = 35. !Config Help = ! lmixmin = 35. call getin('lmixmin',lmixmin) ! !Config Key = ok_kzmin !Config Desc = !Config Def = .false. !Config Help = ! ok_kzmin = .false. call getin('ok_kzmin',ok_kzmin) !Config Key = iflag_ajs !Config Desc = !Config Def = 0 !Config Help = ! iflag_ajs = 1 call getin('iflag_ajs',iflag_ajs) ! !Config Key = inertie !Config Desc = !Config Def = 2000. !Config Help = ! inertie = 2000. call getin('inertie',inertie) ! !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! PARAMETER FOR THE OUTPUT LEVELS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !Config Key = lev_histins !Config Desc = !Config Def = 0 !Config Help = ! lev_histins = 0 call getin('lev_histins',lev_histins) ! !Config Key = lev_histday !Config Desc = !Config Def = 1 !Config Help = ! lev_histday = 1 call getin('lev_histday',lev_histday) ! !Config Key = lev_histmth !Config Desc = !Config Def = 2 !Config Help = ! lev_histmth = 2 call getin('lev_histmth',lev_histmth) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! PARAMETER FOR THE TRACERS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !Config Key = tr_scheme !Config Desc = !Config Def = 0 !Config Help = ! ! 0 = Nothing is done (passive tracers) ! 1 = pseudo-chemistry with relaxation toward fixed profile ! See Marcq&Lebonnois 2013 ! 2 = surface emission ! For the moment, inspired from Mars version ! However, the variable 'source' could be used in physiq ! so the call to phytrac_emiss could be to initialise it. ! 3 = Full chemistry and/or clouds => phytrac_chimie ! Need ok_chem or ok_cloud tr_scheme = 0 call getin('tr_scheme',tr_scheme) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! PARAMETRES DE LA CHIMIE/NUAGE dans physiq.def !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !Config Key = reinit_trac !Config Desc = !Config Def = .FALSE. !Config Help = ! reinit_trac = .FALSE. call getin('reinit_trac',reinit_trac) ! !Config Key = ok_cloud !Config Desc = !Config Def = .FALSE. !Config Help = ! ok_cloud = .FALSE. call getin('ok_cloud',ok_cloud) ! !Config Key = ok_chem !Config Desc = !Config Def = .FALSE. !Config Help = ! ok_chem = .FALSE. call getin('ok_chem',ok_chem) if (((tr_scheme.ne.3).and.(ok_chem.or.ok_cloud)).or. & ((tr_scheme.eq.3).and.(.not.ok_chem.and..not.ok_cloud))) then write(*,*) "Attention, incoherence :" write(*,*) "tr_scheme=",tr_scheme," / ok_chem=",ok_chem, & " / ok_cloud=",ok_cloud write(*,*) "Verifier votre physiq.def" stop endif ! !Config Key = ok_sedim !Config Desc = !Config Def = .FALSE. !Config Help = ! ok_sedim = .FALSE. call getin('ok_sedim',ok_sedim) ! !Config Key = ok_deltatemp !Config Desc = !Config Def = .FALSE. !Config Help = ! ok_deltatemp = .FALSE. call getin('ok_deltatemp',ok_deltatemp) ! !Config Key = nb_mode !Config Desc = !Config Def = 0 !Config Help = ! nb_mode = 0 call getin('nb_mode',nb_mode) !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! PARAMETER FOR NLTE PHYSICS !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! !Config Key = callnlte !Config Desc = !Config Def = .false. !Config Help = ! callnlte = .false. call getin('callnlte',callnlte) ! !Config Key = callnirco2 !Config Desc = !Config Def = .false. ! callnirco2 = .false. call getin('callnirco2',callnirco2) ! !Config Key = nircorr !Config Desc = !Config Def = 0 !Config Help = ! nircorr = 0 call getin('nircorr',nircorr) ! !Config Key = callthermos !Config Desc = !Config Def = .false. !Config Help = ! callthermos = .false. call getin('callthermos',callthermos) ! !Config Key = nltemodel !Config Desc = !Config Def = 0 !Config Help = ! nltemodel = 0 call getin('nltemodel',nltemodel) ! !Config Key = solvarmod !Config Desc = !Config Def = 1 !Config Help = ! solvarmod = 1 call getin('solvarmod',solvarmod) ! !Config Key = solarcondate !Config Desc = !Config Def = 1993.4 ## Average solar cycle condition !Config Help = ! solarcondate = 1993.4 call getin('solarcondate',solarcondate) ! !Config Key = euveff !Config Desc = !Config Def = 0.21 !Config Help = ! euveff = 0.21 call getin('euveff',euveff) ! ! !Config Key = !Config Desc = !Config Def = !Config Help = ! ! = ! call getin('',) ! ! ! ! write(numout,*)' ##############################################' write(numout,*)' Configuration des parametres de la physique: ' write(numout,*)' cycle_diurne = ', cycle_diurne write(numout,*)' soil_model = ', soil_model write(numout,*)' ok_orodr = ', ok_orodr write(numout,*)' ok_orolf = ', ok_orolf write(numout,*)' ok_gw_nonoro = ', ok_gw_nonoro write(numout,*)' nbapp_rad = ', nbapp_rad write(numout,*)' nbapp_chim = ', nbapp_chim write(numout,*)' iflag_con = ', iflag_con write(numout,*)' Sortie journaliere = ', ok_journe write(numout,*)' Sortie mensuelle = ', ok_mensuel write(numout,*)' Sortie instantanee = ', ok_instan write(numout,*)' frequence sorties = ', ecriphy write(numout,*)' Sortie bilan d''energie, if_ebil =', if_ebil write(numout,*)' Excentricite = ',R_ecc write(numout,*)' Equinoxe = ',R_peri write(numout,*)' Inclinaison =',R_incl write(numout,*)' tr_scheme = ', tr_scheme write(numout,*)' iflag_pbl = ', iflag_pbl write(numout,*)' z0 = ',z0 write(numout,*)' lmixmin = ',lmixmin write(numout,*)' ksta = ',ksta write(numout,*)' ok_kzmin = ',ok_kzmin write(numout,*)' inertie = ', inertie write(numout,*)' iflag_ajs = ', iflag_ajs write(numout,*)' lev_histins = ',lev_histins write(numout,*)' lev_histday = ',lev_histday write(numout,*)' lev_histmth = ',lev_histmth write(numout,*)' reinit_trac = ',reinit_trac write(numout,*)' ok_cloud = ',ok_cloud write(numout,*)' ok_chem = ',ok_chem write(numout,*)' ok_sedim = ',ok_sedim write(numout,*)' ok_deltatemp = ',ok_deltatemp write(numout,*)' nb_mode = ',nb_mode write(numout,*)' callnlte = ',callnlte write(numout,*)' nltemodel = ',nltemodel write(numout,*)' callnirco2 = ',callnirco2 write(numout,*)' nircorr = ',nircorr write(numout,*)' callthermos = ',callthermos write(numout,*)' solvarmod = ',solvarmod write(numout,*)' solarcondate = ',solarcondate write(numout,*)' euveff = ',euveff return end subroutine conf_phys