MODULE lmdz_conf_gcm IMPLICIT NONE; PRIVATE PUBLIC conf_gcm CONTAINS SUBROUTINE conf_gcm(tapedef, etatinit) USE control_mod USE IOIPSL USE lmdz_infotrac, ONLY: type_trac USE lmdz_assert, ONLY: assert USE comconst_mod, ONLY: dissip_deltaz, dissip_factz, dissip_zref, & iflag_top_bound, mode_top_bound, tau_top_bound, & ngroup, maxlatfilter USE logic_mod, ONLY: fxyhypb, iflag_phys, ok_etat0, ok_gradsfile, & ok_guide, ok_limit, ok_strato, purmats, read_start, & ysinus, read_orop, adv_qsat_liq USE serre_mod, ONLY: clon, clat, grossismx, grossismy, dzoomx, dzoomy, & alphax, alphay, taux, tauy USE temps_mod, ONLY: calend, year_len USE lmdz_iniprint, ONLY: lunout, prt_level USE lmdz_comdissnew, ONLY: lstardis, nitergdiv, nitergrot, niterh, tetagdiv, & tetagrot, tetatemp, coefdis, vert_prof_dissip USE lmdz_dimensions, ONLY: iim, jjm, llm, ndm USE lmdz_paramet IMPLICIT NONE !----------------------------------------------------------------------- ! Auteurs : L. Fairhead , P. Le Van . ! Arguments : ! tapedef : ! etatinit : = TRUE , on ne compare pas les valeurs des para- ! -metres du zoom avec celles lues sur le fichier start . LOGICAL, INTENT(IN) :: etatinit INTEGER, INTENT(IN) :: tapedef ! Declarations : ! -------------- ! local: ! ------ REAL clonn, clatt, grossismxx, grossismyy REAL dzoomxx, dzoomyy, tauxx, tauyy LOGICAL fxyhypbb, ysinuss ! ------------------------------------------------------------------- ! ......... Version du 29/04/97 .......... ! Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot, ! tetatemp ajoutes pour la dissipation . ! Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb ** ! Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb. ! Sinon , choix de fxynew , a derivee sinusoidale .. ! ...... etatinit = . TRUE. si defrun est appele dans ETAT0_LMD ou ! LIMIT_LMD pour l'initialisation de start.dat (dic) et ! de limit.dat ( dic) ........... ! Sinon etatinit = . FALSE . ! Donc etatinit = .F. si on veut comparer les valeurs de grossismx , ! grossismy,clon,clat, fxyhypb lues sur le fichier start avec ! celles passees par run.def , au debut du gcm, apres l'appel a ! lectba . ! Ces parmetres definissant entre autres la grille et doivent etre ! pareils et coherents , sinon il y aura divergence du gcm . !----------------------------------------------------------------------- ! initialisations: ! ---------------- !Config Key = lunout !Config Desc = unite de fichier pour les impressions !Config Def = 6 !Config Help = unite de fichier pour les impressions !Config (defaut sortie standard = 6) lunout = 6 CALL getin('lunout', lunout) IF (lunout /= 5 .AND. lunout /= 6) THEN OPEN(UNIT = lunout, FILE = 'lmdz.out', ACTION = 'write', & STATUS = 'unknown', FORM = 'formatted') ENDIF !Config Key = prt_level !Config Desc = niveau d'impressions de d\'ebogage !Config Def = 0 !Config Help = Niveau d'impression pour le d\'ebogage !Config (0 = minimum d'impression) prt_level = 0 CALL getin('prt_level', prt_level) !----------------------------------------------------------------------- ! Parametres de controle du run: !----------------------------------------------------------------------- !Config Key = planet_type !Config Desc = planet type ("earth", "mars", "venus", ...) !Config Def = earth !Config Help = this flag sets the type of atymosphere that is considered planet_type = "earth" CALL getin('planet_type', planet_type) !Config Key = calend !Config Desc = type de calendrier utilise !Config Def = earth_360d !Config Help = valeur possible: earth_360d, earth_365d, earth_366d !Config calend = 'earth_360d' CALL getin('calend', calend) ! initialize year_len for aquaplanets and 1D IF (calend == 'earth_360d') THEN year_len = 360 ELSE IF (calend == 'earth_365d') THEN year_len = 365 ELSE IF (calend == 'earth_366d') THEN year_len = 366 ELSE year_len = 1 ENDIF !Config Key = dayref !Config Desc = Jour de l'etat initial !Config Def = 1 !Config Help = Jour de l'etat initial ( = 350 si 20 Decembre , !Config par expl. ,comme ici ) ... A completer dayref = 1 CALL getin('dayref', dayref) !Config Key = anneeref !Config Desc = Annee de l'etat initial !Config Def = 1998 !Config Help = Annee de l'etat initial !Config ( avec 4 chiffres ) ... A completer anneeref = 1998 CALL getin('anneeref', anneeref) !Config Key = raz_date !Config Desc = Remise a zero de la date initiale !Config Def = 0 (pas de remise a zero) !Config Help = Remise a zero de la date initiale !Config 0 pas de remise a zero, on garde la date du fichier restart !Config 1 prise en compte de la date de gcm.def avec remise a zero !Config des compteurs de pas de temps raz_date = 0 CALL getin('raz_date', raz_date) !Config Key = resetvarc !Config Desc = Reinit des variables de controle !Config Def = n !Config Help = Reinit des variables de controle resetvarc = .FALSE. CALL getin('resetvarc', resetvarc) !Config Key = nday !Config Desc = Nombre de jours d'integration !Config Def = 10 !Config Help = Nombre de jours d'integration !Config ... On pourait aussi permettre des mois ou des annees ! nday = 10 CALL getin('nday', nday) !Config Key = starttime !Config Desc = Heure de depart de la simulation !Config Def = 0 !Config Help = Heure de depart de la simulation !Config en jour starttime = 0 CALL getin('starttime', starttime) !Config Key = day_step !Config Desc = nombre de pas par jour !Config Def = 240 !Config Help = nombre de pas par jour (multiple de iperiod) ( !Config ici pour dt = 1 min ) day_step = 240 CALL getin('day_step', day_step) !Config Key = nsplit_phys nsplit_phys = 1 CALL getin('nsplit_phys', nsplit_phys) !Config Key = iperiod !Config Desc = periode pour le pas Matsuno !Config Def = 5 !Config Help = periode pour le pas Matsuno (en pas de temps) iperiod = 5 CALL getin('iperiod', iperiod) !Config Key = iapp_tracvl !Config Desc = frequence du groupement des flux !Config Def = iperiod !Config Help = frequence du groupement des flux (en pas de temps) iapp_tracvl = iperiod CALL getin('iapp_tracvl', iapp_tracvl) !Config Key = iconser !Config Desc = periode de sortie des variables de controle !Config Def = 240 !Config Help = periode de sortie des variables de controle !Config (En pas de temps) iconser = 240 CALL getin('iconser', iconser) !Config Key = iecri !Config Desc = periode d'ecriture du fichier histoire !Config Def = 1 !Config Help = periode d'ecriture du fichier histoire (en jour) iecri = 1 CALL getin('iecri', iecri) !Config Key = periodav !Config Desc = periode de stockage fichier histmoy !Config Def = 1 !Config Help = periode de stockage fichier histmoy (en jour) periodav = 1. CALL getin('periodav', periodav) !Config Key = output_grads_dyn !Config Desc = output dynamics diagnostics in 'dyn.dat' file !Config Def = n !Config Help = output dynamics diagnostics in Grads-readable 'dyn.dat' file output_grads_dyn = .FALSE. CALL getin('output_grads_dyn', output_grads_dyn) !Config Key = dissip_period !Config Desc = periode de la dissipation !Config Def = 0 !Config Help = periode de la dissipation !Config dissip_period=0 => la valeur sera calcule dans inidissip !Config dissip_period>0 => on prend cette valeur dissip_period = 0 CALL getin('dissip_period', dissip_period) !cc .... P. Le Van , modif le 29/04/97 .pour la dissipation ... !cc !Config Key = lstardis !Config Desc = choix de l'operateur de dissipation !Config Def = y !Config Help = choix de l'operateur de dissipation !Config 'y' si on veut star et 'n' si on veut non-start ! !Config Moi y en a pas comprendre ! lstardis = .TRUE. CALL getin('lstardis', lstardis) !Config Key = nitergdiv !Config Desc = Nombre d'iteration de gradiv !Config Def = 1 !Config Help = nombre d'iterations de l'operateur de dissipation !Config gradiv nitergdiv = 1 CALL getin('nitergdiv', nitergdiv) !Config Key = nitergrot !Config Desc = nombre d'iterations de nxgradrot !Config Def = 2 !Config Help = nombre d'iterations de l'operateur de dissipation !Config nxgradrot nitergrot = 2 CALL getin('nitergrot', nitergrot) !Config Key = niterh !Config Desc = nombre d'iterations de divgrad !Config Def = 2 !Config Help = nombre d'iterations de l'operateur de dissipation !Config divgrad niterh = 2 CALL getin('niterh', niterh) !Config Key = tetagdiv !Config Desc = temps de dissipation pour div !Config Def = 7200 !Config Help = temps de dissipation des plus petites longeur !Config d'ondes pour u,v (gradiv) tetagdiv = 7200. CALL getin('tetagdiv', tetagdiv) !Config Key = tetagrot !Config Desc = temps de dissipation pour grad !Config Def = 7200 !Config Help = temps de dissipation des plus petites longeur !Config d'ondes pour u,v (nxgradrot) tetagrot = 7200. CALL getin('tetagrot', tetagrot) !Config Key = tetatemp !Config Desc = temps de dissipation pour h !Config Def = 7200 !Config Help = temps de dissipation des plus petites longeur !Config d'ondes pour h (divgrad) tetatemp = 7200. CALL getin('tetatemp', tetatemp) ! Parametres controlant la variation sur la verticale des constantes de ! dissipation. ! Pour le moment actifs uniquement dans la version a 39 niveaux ! avec ok_strato=y dissip_factz = 4. dissip_deltaz = 10. dissip_zref = 30. CALL getin('dissip_factz', dissip_factz) CALL getin('dissip_deltaz', dissip_deltaz) CALL getin('dissip_zref', dissip_zref) ! maxlatfilter maxlatfilter = -1.0 CALL getin('maxlatfilter', maxlatfilter) IF (maxlatfilter > 90) & CALL abort_gcm("conf_gcm", 'maxlatfilter should be <=90', 1) ! ngroup ngroup = 3 CALL getin('ngroup', ngroup) ! top_bound sponge: only active if ok_strato=.TRUE. and iflag_top_bound!=0 ! iflag_top_bound=0 for no sponge ! iflag_top_bound=1 for sponge over 4 topmost layers ! iflag_top_bound=2 for sponge from top to ~1% of top layer pressure iflag_top_bound = 1 CALL getin('iflag_top_bound', iflag_top_bound) IF (iflag_top_bound < 0 .OR. iflag_top_bound > 2) & CALL abort_gcm("conf_gcm", 'iflag_top_bound must be 0, 1 or 2', 1) ! mode_top_bound : fields towards which sponge relaxation will be done: ! mode_top_bound=0: no relaxation ! mode_top_bound=1: u and v relax towards 0 ! mode_top_bound=2: u and v relax towards their zonal mean ! mode_top_bound=3: u,v and pot. temp. relax towards their zonal mean mode_top_bound = 3 CALL getin('mode_top_bound', mode_top_bound) ! top_bound sponge : inverse of charactericstic relaxation time scale for sponge tau_top_bound = 1.e-5 CALL getin('tau_top_bound', tau_top_bound) !Config Key = coefdis !Config Desc = coefficient pour gamdissip !Config Def = 0 !Config Help = coefficient pour gamdissip coefdis = 0. CALL getin('coefdis', coefdis) !Config Key = purmats !Config Desc = Schema d'integration !Config Def = n !Config Help = Choix du schema d'integration temporel. !Config y = pure Matsuno sinon c'est du Matsuno-leapfrog purmats = .FALSE. CALL getin('purmats', purmats) !Config Key = ok_guide !Config Desc = Guidage !Config Def = n !Config Help = Guidage ok_guide = .FALSE. CALL getin('ok_guide', ok_guide) !Config Key = read_start !Config Desc = Initialize model using a 'start.nc' file !Config Def = y !Config Help = y: intialize dynamical fields using a 'start.nc' file ! n: fields are initialized by 'iniacademic' routine read_start = .TRUE. CALL getin('read_start', read_start) !Config Key = iflag_phys !Config Desc = Avec ls physique !Config Def = 1 !Config Help = Permet de faire tourner le modele sans !Config physique. iflag_phys = 1 CALL getin('iflag_phys', iflag_phys) !Config Key = iphysiq !Config Desc = Periode de la physique !Config Def = 5 !Config Help = Periode de la physique en pas de temps de la dynamique. iphysiq = 5 CALL getin('iphysiq', iphysiq) !Config Key = ip_ebil_dyn !Config Desc = PRINT level for energy conserv. diag. !Config Def = 0 !Config Help = PRINT level for energy conservation diag. ; ! les options suivantes existent : !Config 0 pas de print !Config 1 pas de print !Config 2 print, ip_ebil_dyn = 0 CALL getin('ip_ebil_dyn', ip_ebil_dyn) !cc .... P. Le Van , ajout le 7/03/95 .pour le zoom ... ! ......... ( modif le 17/04/96 ) ......... test_etatinit: IF (.NOT. etatinit) THEN !Config Key = clon !Config Desc = centre du zoom, longitude !Config Def = 0 !Config Help = longitude en degres du centre !Config du zoom clonn = 0. CALL getin('clon', clonn) !Config Key = clat !Config Desc = centre du zoom, latitude !Config Def = 0 !Config Help = latitude en degres du centre du zoom !Config clatt = 0. CALL getin('clat', clatt) IF(ABS(clat - clatt)>= 0.001) THEN WRITE(lunout, *)'conf_gcm: La valeur de clat passee par run.def', & ' est differente de celle lue sur le fichier start ' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF !Config Key = grossismx !Config Desc = zoom en longitude !Config Def = 1.0 !Config Help = facteur de grossissement du zoom, !Config selon la longitude grossismxx = 1.0 CALL getin('grossismx', grossismxx) IF(ABS(grossismx - grossismxx)>= 0.001) THEN WRITE(lunout, *)'conf_gcm: La valeur de grossismx passee par ', & 'run.def est differente de celle lue sur le fichier start ' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF !Config Key = grossismy !Config Desc = zoom en latitude !Config Def = 1.0 !Config Help = facteur de grossissement du zoom, !Config selon la latitude grossismyy = 1.0 CALL getin('grossismy', grossismyy) IF(ABS(grossismy - grossismyy)>= 0.001) THEN WRITE(lunout, *)'conf_gcm: La valeur de grossismy passee par ', & 'run.def est differente de celle lue sur le fichier start ' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF IF(grossismx<1.) THEN WRITE(lunout, *) & 'conf_gcm: *** ATTENTION !! grossismx < 1 . *** ' CALL abort_gcm("conf_gcm", "stopped", 1) ELSE alphax = 1. - 1. / grossismx ENDIF IF(grossismy<1.) THEN WRITE(lunout, *) & 'conf_gcm: *** ATTENTION !! grossismy < 1 . *** ' CALL abort_gcm("conf_gcm", "stopped", 1) ELSE alphay = 1. - 1. / grossismy ENDIF WRITE(lunout, *)'conf_gcm: alphax alphay', alphax, alphay ! alphax et alphay sont les anciennes formulat. des grossissements !Config Key = fxyhypb !Config Desc = Fonction hyperbolique !Config Def = y !Config Help = Fonction f(y) hyperbolique si = .TRUE. !Config sinon sinusoidale fxyhypbb = .TRUE. CALL getin('fxyhypb', fxyhypbb) IF(.NOT.fxyhypb) THEN IF(fxyhypbb) THEN WRITE(lunout, *)' ******** PBS DANS CONF_GCM ******** ' WRITE(lunout, *)' *** fxyhypb lu sur le fichier start est ', & 'F alors qu il est T sur run.def ***' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF ELSE IF(.NOT.fxyhypbb) THEN WRITE(lunout, *)' ******** PBS DANS CONF_GCM ******** ' WRITE(lunout, *)' *** fxyhypb lu sur le fichier start est ', & 'T alors qu il est F sur run.def **** ' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF ENDIF !Config Key = dzoomx !Config Desc = extension en longitude !Config Def = 0 !Config Help = extension en longitude de la zone du zoom !Config ( fraction de la zone totale) dzoomxx = 0.0 CALL getin('dzoomx', dzoomxx) IF(fxyhypb) THEN IF(ABS(dzoomx - dzoomxx)>= 0.001) THEN WRITE(lunout, *)'conf_gcm: La valeur de dzoomx passee par ', & 'run.def est differente de celle lue sur le fichier start ' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF ENDIF !Config Key = dzoomy !Config Desc = extension en latitude !Config Def = 0 !Config Help = extension en latitude de la zone du zoom !Config ( fraction de la zone totale) dzoomyy = 0.0 CALL getin('dzoomy', dzoomyy) IF(fxyhypb) THEN IF(ABS(dzoomy - dzoomyy)>= 0.001) THEN WRITE(lunout, *)'conf_gcm: La valeur de dzoomy passee par ', & 'run.def est differente de celle lue sur le fichier start ' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF ENDIF !Config Key = taux !Config Desc = raideur du zoom en X !Config Def = 3 !Config Help = raideur du zoom en X tauxx = 3.0 CALL getin('taux', tauxx) IF(fxyhypb) THEN IF(ABS(taux - tauxx)>= 0.001) THEN WRITE(lunout, *)'conf_gcm: La valeur de taux passee par ', & 'run.def est differente de celle lue sur le fichier start ' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF ENDIF !Config Key = tauyy !Config Desc = raideur du zoom en Y !Config Def = 3 !Config Help = raideur du zoom en Y tauyy = 3.0 CALL getin('tauy', tauyy) IF(fxyhypb) THEN IF(ABS(tauy - tauyy)>= 0.001) THEN WRITE(lunout, *)'conf_gcm: La valeur de tauy passee par ', & 'run.def est differente de celle lue sur le fichier start ' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF ENDIF !c IF(.NOT.fxyhypb) THEN !Config Key = ysinus !Config IF = !fxyhypb !Config Desc = Fonction en Sinus !Config Def = y !Config Help = Fonction f(y) avec y = Sin(latit.) si = .TRUE. !Config sinon y = latit. ysinuss = .TRUE. CALL getin('ysinus', ysinuss) IF(.NOT.ysinus) THEN IF(ysinuss) THEN WRITE(lunout, *)' ******** PBS DANS CONF_GCM ******** ' WRITE(lunout, *)' *** ysinus lu sur le fichier start est F', & ' alors qu il est T sur run.def ***' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF ELSE IF(.NOT.ysinuss) THEN WRITE(lunout, *)' ******** PBS DANS CONF_GCM ******** ' WRITE(lunout, *)' *** ysinus lu sur le fichier start est T', & ' alors qu il est F sur run.def **** ' CALL abort_gcm("conf_gcm", "stopped", 1) ENDIF ENDIF ENDIF ! of IF( .NOT.fxyhypb ) !Config Key = offline !Config Desc = Nouvelle eau liquide !Config Def = n !Config Help = Permet de mettre en route la !Config nouvelle parametrisation de l'eau liquide ! offline = .FALSE. CALL getin('offline', offline) !Config Key = type_trac !Config Desc = Choix de couplage avec model de chimie INCA ou REPROBUS !Config Def = lmdz !Config Help = !Config 'lmdz' = pas de couplage, pur LMDZ !Config 'inca' = model de chime INCA !Config 'repr' = model de chime REPROBUS !Config 'inco' = INCA + CO2i (temporaire) type_trac = 'lmdz' CALL getin('type_trac', type_trac) !Config Key = adv_qsat_liq !Config Desc = option for qsat calculation in the dynamics !Config Def = n !Config Help = controls which phase is considered for qsat calculation !Config adv_qsat_liq = .FALSE. CALL getin('adv_qsat_liq', adv_qsat_liq) !Config Key = ok_dynzon !Config Desc = calcul et sortie des transports !Config Def = n !Config Help = Permet de mettre en route le calcul des transports !Config ok_dynzon = .FALSE. CALL getin('ok_dynzon', ok_dynzon) !Config Key = ok_dyn_ins !Config Desc = sorties instantanees dans la dynamique !Config Def = n !Config Help = !Config ok_dyn_ins = .FALSE. CALL getin('ok_dyn_ins', ok_dyn_ins) !Config Key = ok_dyn_ave !Config Desc = sorties moyennes dans la dynamique !Config Def = n !Config Help = !Config ok_dyn_ave = .FALSE. CALL getin('ok_dyn_ave', ok_dyn_ave) WRITE(lunout, *)' #########################################' WRITE(lunout, *)' Configuration des parametres du gcm: ' WRITE(lunout, *)' planet_type = ', planet_type WRITE(lunout, *)' calend = ', calend WRITE(lunout, *)' dayref = ', dayref WRITE(lunout, *)' anneeref = ', anneeref WRITE(lunout, *)' nday = ', nday WRITE(lunout, *)' day_step = ', day_step WRITE(lunout, *)' iperiod = ', iperiod WRITE(lunout, *)' nsplit_phys = ', nsplit_phys WRITE(lunout, *)' iconser = ', iconser WRITE(lunout, *)' iecri = ', iecri WRITE(lunout, *)' periodav = ', periodav WRITE(lunout, *)' output_grads_dyn = ', output_grads_dyn WRITE(lunout, *)' dissip_period = ', dissip_period WRITE(lunout, *)' lstardis = ', lstardis WRITE(lunout, *)' nitergdiv = ', nitergdiv WRITE(lunout, *)' nitergrot = ', nitergrot WRITE(lunout, *)' niterh = ', niterh WRITE(lunout, *)' tetagdiv = ', tetagdiv WRITE(lunout, *)' tetagrot = ', tetagrot WRITE(lunout, *)' tetatemp = ', tetatemp WRITE(lunout, *)' coefdis = ', coefdis WRITE(lunout, *)' purmats = ', purmats WRITE(lunout, *)' read_start = ', read_start WRITE(lunout, *)' iflag_phys = ', iflag_phys WRITE(lunout, *)' iphysiq = ', iphysiq WRITE(lunout, *)' clonn = ', clonn WRITE(lunout, *)' clatt = ', clatt WRITE(lunout, *)' grossismx = ', grossismx WRITE(lunout, *)' grossismy = ', grossismy WRITE(lunout, *)' fxyhypbb = ', fxyhypbb WRITE(lunout, *)' dzoomxx = ', dzoomxx WRITE(lunout, *)' dzoomy = ', dzoomyy WRITE(lunout, *)' tauxx = ', tauxx WRITE(lunout, *)' tauyy = ', tauyy WRITE(lunout, *)' offline = ', offline WRITE(lunout, *)' type_trac = ', type_trac WRITE(lunout, *)' ok_dynzon = ', ok_dynzon WRITE(lunout, *)' ok_dyn_ins = ', ok_dyn_ins WRITE(lunout, *)' ok_dyn_ave = ', ok_dyn_ave WRITE(lunout, *)' adv_qsat_liq = ', adv_qsat_liq ELSE !Config Key = clon !Config Desc = centre du zoom, longitude !Config Def = 0 !Config Help = longitude en degres du centre !Config du zoom clon = 0. CALL getin('clon', clon) !Config Key = clat !Config Desc = centre du zoom, latitude !Config Def = 0 !Config Help = latitude en degres du centre du zoom !Config clat = 0. CALL getin('clat', clat) !Config Key = grossismx !Config Desc = zoom en longitude !Config Def = 1.0 !Config Help = facteur de grossissement du zoom, !Config selon la longitude grossismx = 1.0 CALL getin('grossismx', grossismx) !Config Key = grossismy !Config Desc = zoom en latitude !Config Def = 1.0 !Config Help = facteur de grossissement du zoom, !Config selon la latitude grossismy = 1.0 CALL getin('grossismy', grossismy) IF(grossismx<1.) THEN WRITE(lunout, *) & 'conf_gcm: *** ATTENTION !! grossismx < 1 . *** ' CALL abort_gcm("conf_gcm", "stopped", 1) ELSE alphax = 1. - 1. / grossismx ENDIF IF(grossismy<1.) THEN WRITE(lunout, *) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** ' CALL abort_gcm("conf_gcm", "stopped", 1) ELSE alphay = 1. - 1. / grossismy ENDIF WRITE(lunout, *)'conf_gcm: alphax alphay ', alphax, alphay ! alphax et alphay sont les anciennes formulat. des grossissements !Config Key = fxyhypb !Config Desc = Fonction hyperbolique !Config Def = y !Config Help = Fonction f(y) hyperbolique si = .TRUE. !Config sinon sinusoidale fxyhypb = .TRUE. CALL getin('fxyhypb', fxyhypb) !Config Key = dzoomx !Config Desc = extension en longitude !Config Def = 0 !Config Help = extension en longitude de la zone du zoom !Config ( fraction de la zone totale) dzoomx = 0.2 CALL getin('dzoomx', dzoomx) CALL assert(dzoomx < 1, "conf_gcm: dzoomx must be < 1") !Config Key = dzoomy !Config Desc = extension en latitude !Config Def = 0 !Config Help = extension en latitude de la zone du zoom !Config ( fraction de la zone totale) dzoomy = 0.2 CALL getin('dzoomy', dzoomy) CALL assert(dzoomy < 1, "conf_gcm: dzoomy must be < 1") !Config Key = taux !Config Desc = raideur du zoom en X !Config Def = 3 !Config Help = raideur du zoom en X taux = 3.0 CALL getin('taux', taux) !Config Key = tauy !Config Desc = raideur du zoom en Y !Config Def = 3 !Config Help = raideur du zoom en Y tauy = 3.0 CALL getin('tauy', tauy) !Config Key = ysinus !Config IF = !fxyhypb !Config Desc = Fonction en Sinus !Config Def = y !Config Help = Fonction f(y) avec y = Sin(latit.) si = .TRUE. !Config sinon y = latit. ysinus = .TRUE. CALL getin('ysinus', ysinus) !Config Key = offline !Config Desc = Nouvelle eau liquide !Config Def = n !Config Help = Permet de mettre en route la !Config nouvelle parametrisation de l'eau liquide ! offline = .FALSE. CALL getin('offline', offline) !Config Key = type_trac !Config Desc = Choix de couplage avec model de chimie INCA ou REPROBUS !Config Def = lmdz !Config Help = !Config 'lmdz' = pas de couplage, pur LMDZ !Config 'inca' = model de chime INCA !Config 'repr' = model de chime REPROBUS !Config 'inco' = INCA + CO2i (temporaire) type_trac = 'lmdz' CALL getin('type_trac', type_trac) !Config Key = ok_dynzon !Config Desc = sortie des transports zonaux dans la dynamique !Config Def = n !Config Help = Permet de mettre en route le calcul des transports !Config ok_dynzon = .FALSE. CALL getin('ok_dynzon', ok_dynzon) !Config Key = ok_dyn_ins !Config Desc = sorties instantanees dans la dynamique !Config Def = n !Config Help = !Config ok_dyn_ins = .FALSE. CALL getin('ok_dyn_ins', ok_dyn_ins) !Config Key = ok_dyn_ave !Config Desc = sorties moyennes dans la dynamique !Config Def = n !Config Help = !Config ok_dyn_ave = .FALSE. CALL getin('ok_dyn_ave', ok_dyn_ave) !Config key = ok_strato !Config Desc = activation de la version strato !Config Def = .FALSE. !Config Help = active la version stratosph\'erique de LMDZ de F. Lott ok_strato = .FALSE. CALL getin('ok_strato', ok_strato) vert_prof_dissip = merge(1, 0, ok_strato .AND. llm==39) CALL getin('vert_prof_dissip', vert_prof_dissip) CALL assert(vert_prof_dissip == 0 .OR. vert_prof_dissip == 1, & "bad value for vert_prof_dissip") !Config Key = ok_gradsfile !Config Desc = activation des sorties grads du guidage !Config Def = n !Config Help = active les sorties grads du guidage ok_gradsfile = .FALSE. CALL getin('ok_gradsfile', ok_gradsfile) !Config Key = ok_limit !Config Desc = creation des fichiers limit dans create_etat0_limit !Config Def = y !Config Help = production du fichier limit.nc requise ok_limit = .TRUE. CALL getin('ok_limit', ok_limit) !Config Key = ok_etat0 !Config Desc = creation des fichiers etat0 dans create_etat0_limit !Config Def = y !Config Help = production des fichiers start.nc, startphy.nc requise ok_etat0 = .TRUE. CALL getin('ok_etat0', ok_etat0) !Config Key = read_orop !Config Desc = lecture du fichier de params orographiques sous maille !Config Def = f !Config Help = lecture fichier plutot que grid_noro read_orop = .FALSE. CALL getin('read_orop', read_orop) WRITE(lunout, *)' #########################################' WRITE(lunout, *)' Configuration des parametres de cel0_limit: ' WRITE(lunout, *)' planet_type = ', planet_type WRITE(lunout, *)' calend = ', calend WRITE(lunout, *)' dayref = ', dayref WRITE(lunout, *)' anneeref = ', anneeref WRITE(lunout, *)' nday = ', nday WRITE(lunout, *)' day_step = ', day_step WRITE(lunout, *)' iperiod = ', iperiod WRITE(lunout, *)' iconser = ', iconser WRITE(lunout, *)' iecri = ', iecri WRITE(lunout, *)' periodav = ', periodav WRITE(lunout, *)' output_grads_dyn = ', output_grads_dyn WRITE(lunout, *)' dissip_period = ', dissip_period WRITE(lunout, *)' lstardis = ', lstardis WRITE(lunout, *)' nitergdiv = ', nitergdiv WRITE(lunout, *)' nitergrot = ', nitergrot WRITE(lunout, *)' niterh = ', niterh WRITE(lunout, *)' tetagdiv = ', tetagdiv WRITE(lunout, *)' tetagrot = ', tetagrot WRITE(lunout, *)' tetatemp = ', tetatemp WRITE(lunout, *)' coefdis = ', coefdis WRITE(lunout, *)' purmats = ', purmats WRITE(lunout, *)' read_start = ', read_start WRITE(lunout, *)' iflag_phys = ', iflag_phys WRITE(lunout, *)' iphysiq = ', iphysiq WRITE(lunout, *)' clon = ', clon WRITE(lunout, *)' clat = ', clat WRITE(lunout, *)' grossismx = ', grossismx WRITE(lunout, *)' grossismy = ', grossismy WRITE(lunout, *)' fxyhypb = ', fxyhypb WRITE(lunout, *)' dzoomx = ', dzoomx WRITE(lunout, *)' dzoomy = ', dzoomy WRITE(lunout, *)' taux = ', taux WRITE(lunout, *)' tauy = ', tauy WRITE(lunout, *)' offline = ', offline WRITE(lunout, *)' type_trac = ', type_trac WRITE(lunout, *)' ok_dynzon = ', ok_dynzon WRITE(lunout, *)' ok_dyn_ins = ', ok_dyn_ins WRITE(lunout, *)' ok_dyn_ave = ', ok_dyn_ave WRITE(lunout, *)' ok_strato = ', ok_strato WRITE(lunout, *)' ok_gradsfile = ', ok_gradsfile WRITE(lunout, *)' ok_limit = ', ok_limit WRITE(lunout, *)' ok_etat0 = ', ok_etat0 WRITE(lunout, *)' ok_guide = ', ok_guide WRITE(lunout, *)' read_orop = ', read_orop ENDIF test_etatinit END SUBROUTINE conf_gcm END MODULE lmdz_conf_gcm