! ! $Header$ ! c c SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 ) c use IOIPSL use misc_mod use mod_filtre_fft, ONLY : use_filtre_fft use mod_hallo, ONLY : use_mpi_alloc use parallel, ONLY : omp_chunk IMPLICIT NONE c----------------------------------------------------------------------- c Auteurs : L. Fairhead , P. Le Van . c c Arguments : c c tapedef : c etatinit : = TRUE , on ne compare pas les valeurs des para- c -metres du zoom avec celles lues sur le fichier start . c clesphy0 : sortie . c LOGICAL etatinit INTEGER tapedef INTEGER longcles PARAMETER( longcles = 20 ) REAL clesphy0( longcles ) c c Declarations : c -------------- #include "dimensions.h" #include "paramet.h" #include "control.h" #include "logic.h" #include "serre.h" #include "comdissnew.h" !#include "clesphys.h" #include "iniprint.h" ! FH 2008/05/09 On elimine toutes les clefs physiques dans la dynamique c c c local: c ------ CHARACTER ch1*72,ch2*72,ch3*72,ch4*12 REAL clonn,clatt,grossismxx,grossismyy REAL dzoomxx,dzoomyy, tauxx,tauyy LOGICAL fxyhypbb, ysinuss INTEGER i c c ------------------------------------------------------------------- c c ......... Version du 29/04/97 .......... c c Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot, c tetatemp ajoutes pour la dissipation . c c Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb ** c c Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb. c Sinon , choix de fxynew , a derivee sinusoidale .. c c ...... etatinit = . TRUE. si defrun est appele dans ETAT0_LMD ou c LIMIT_LMD pour l'initialisation de start.dat (dic) et c de limit.dat ( dic) ........... c Sinon etatinit = . FALSE . c c Donc etatinit = .F. si on veut comparer les valeurs de grossismx , c grossismy,clon,clat, fxyhypb lues sur le fichier start avec c celles passees par run.def , au debut du gcm, apres l'appel a c lectba . c Ces parmetres definissant entre autres la grille et doivent etre c pareils et coherents , sinon il y aura divergence du gcm . c c----------------------------------------------------------------------- c initialisations: c ---------------- adjust=.false. call getin('adjust',adjust) itaumax=0 call getin('itaumax',itaumax); if (itaumax<=0) itaumax=HUGE(itaumax) !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(lunout,FILE='lmdz.out') ENDIF !Config Key = prt_level !Config Desc = niveau d'impressions de d�bogage !Config Def = 0 !Config Help = Niveau d'impression pour le d�bogage !Config (0 = minimum d'impression) prt_level = 0 CALL getin('prt_level',prt_level) c----------------------------------------------------------------------- c Parametres de controle du run: c----------------------------------------------------------------------- !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 = 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 = 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 = 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 = idissip !Config Desc = periode de la dissipation !Config Def = 10 !Config Help = periode de la dissipation !Config (en pas) ... a completer ! idissip = 10 CALL getin('idissip',idissip) ccc .... P. Le Van , modif le 29/04/97 .pour la dissipation ... ccc !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 ) !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) c ............................................................... !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) ccc .... P.Le Van, ajout le 03/01/96 pour l'ecriture phys ... c !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) ! ccc .... P. Le Van , ajout le 7/03/95 .pour le zoom ... c ......... ( modif le 17/04/96 ) ......... c IF( etatinit ) GO TO 100 !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) c c IF( ABS(clat - clatt).GE. 0.001 ) THEN PRINT *,' La valeur de clat passee par run.def est differente de * celle lue sur le fichier start ' STOP 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).GE. 0.001 ) THEN PRINT *,' La valeur de grossismx passee par run.def est differente * de celle lue sur le fichier start ' STOP 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).GE. 0.001 ) THEN PRINT *,' La valeur de grossismy passee par run.def est differen * te de celle lue sur le fichier start ' STOP ENDIF IF( grossismx.LT.1. ) THEN PRINT *,' *** ATTENTION !! grossismx < 1 . *** ' STOP ELSE alphax = 1. - 1./ grossismx ENDIF IF( grossismy.LT.1. ) THEN PRINT *,' *** ATTENTION !! grossismy < 1 . *** ' STOP ELSE alphay = 1. - 1./ grossismy ENDIF PRINT *,' alphax alphay defrun ',alphax,alphay c c alphax et alphay sont les anciennes formulat. des grossissements c c !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 PRINT *,' ******** PBS DANS DEFRUN ******** ' PRINT *,' *** fxyhypb lu sur le fichier start est F ', * 'alors qu il est T sur run.def ***' STOP ENDIF ELSE IF( .NOT.fxyhypbb ) THEN PRINT *,' ******** PBS DANS DEFRUN ******** ' PRINT *,' *** fxyhypb lu sur le fichier start est T ', * 'alors qu il est F sur run.def **** ' STOP ENDIF ENDIF c !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).GE. 0.001 ) THEN PRINT *,' La valeur de dzoomx passee par run.def est differente * de celle lue sur le fichier start ' STOP 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).GE. 0.001 ) THEN PRINT *,' La valeur de dzoomy passee par run.def est differente * de celle lue sur le fichier start ' STOP 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).GE. 0.001 ) THEN PRINT *,' La valeur de taux passee par run.def est differente * de celle lue sur le fichier start ' STOP 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).GE. 0.001 ) THEN PRINT *,' La valeur de tauy passee par run.def est differente * de celle lue sur le fichier start ' STOP ENDIF ENDIF cc 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 PRINT *,' ******** PBS DANS DEFRUN ******** ' PRINT *,' *** ysinus lu sur le fichier start est F ', * 'alors qu il est T sur run.def ***' STOP ENDIF ELSE IF( .NOT.ysinuss ) THEN PRINT *,' ******** PBS DANS DEFRUN ******** ' PRINT *,' *** ysinus lu sur le fichier start est T ', * 'alors qu il est F sur run.def **** ' STOP ENDIF ENDIF ENDIF c !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 = config_inca !Config Desc = Choix de configuration de INCA !Config Def = none !Config Help = Choix de configuration de INCA : !Config 'none' = sans INCA !Config 'chem' = INCA avec calcul de chemie !Config 'aero' = INCA avec calcul des aerosols config_inca = 'none' CALL getin('config_inca',config_inca) write(lunout,*)' #########################################' write(lunout,*)' Configuration des parametres du gcm: ' 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,*)' idissip = ', idissip 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,*)' iflag_phys = ', iflag_phys 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,*)' config_inca = ', config_inca RETURN c ............................................... c 100 CONTINUE !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.LT.1. ) THEN PRINT *,' *** ATTENTION !! grossismx < 1 . *** ' STOP ELSE alphax = 1. - 1./ grossismx ENDIF IF( grossismy.LT.1. ) THEN PRINT *,' *** ATTENTION !! grossismy < 1 . *** ' STOP ELSE alphay = 1. - 1./ grossismy ENDIF PRINT *,' alphax alphay defrun ',alphax,alphay c c alphax et alphay sont les anciennes formulat. des grossissements c c !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.0 CALL getin('dzoomx',dzoomx) !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.0 CALL getin('dzoomy',dzoomy) !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) c !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 = config_inca !Config Desc = Choix de configuration de INCA !Config Def = none !Config Help = Choix de configuration de INCA : !Config 'none' = sans INCA !Config 'chem' = INCA avec calcul de chemie !Config 'aero' = INCA avec calcul des aerosols config_inca = 'none' CALL getin('config_inca',config_inca) !Config Key = use_filtre_fft !Config Desc = flag d'activation des FFT pour le filtre !Config Def = false !Config Help = permet d'activer l'utilisation des FFT pour effectuer !Config le filtrage aux poles. use_filtre_fft=.FALSE. CALL getin('use_filtre_fft',use_filtre_fft) IF (grossismx /= 1.0) THEN write(lunout,*)'WARNING !!! ' write(lunout,*)"Le zoom en longitude est incompatible", & " avec l'utilisation du filtre FFT ", & "---> filtre FFT désactivé " ENDIF !Config Key = use_mpi_alloc !Config Desc = Utilise un buffer MPI en m�moire globale !Config Def = false !Config Help = permet d'activer l'utilisation d'un buffer MPI !Config en m�moire globale a l'aide de la fonction MPI_ALLOC. !Config Cela peut am�liorer la bande passante des transferts MPI !Config d'un facteur 2 use_mpi_alloc=.FALSE. CALL getin('use_mpi_alloc',use_mpi_alloc) !Config Key = omp_chunk !Config Desc = taille des blocs openmp !Config Def = 1 !Config Help = defini la taille des packets d'it�ration openmp !Config distribu�e � chaque t�che lors de l'entr�e dans une !Config boucle parall�lis�e omp_chunk=1 CALL getin('omp_chunk',omp_chunk) !Config key = ok_strato !Config Desc = activation de la version strato !Config Def = .FALSE. !Config Help = active la version stratosph�rique de LMDZ de F. Lott ok_strato=.FALSE. CALL getin('ok_strato',ok_strato) !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) write(lunout,*)' #########################################' write(lunout,*)' Configuration des parametres du gcm: ' 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,*)' idissip = ', idissip 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,*)' iflag_phys = ', iflag_phys write(lunout,*)' clon = ', clon write(lunout,*)' clat = ', clat write(lunout,*)' grossismx = ', grossismx write(lunout,*)' grossismy = ', grossismy write(lunout,*)' fxyhypbb = ', fxyhypbb write(lunout,*)' dzoomx = ', dzoomx write(lunout,*)' dzoomy = ', dzoomy write(lunout,*)' taux = ', taux write(lunout,*)' tauy = ', tauy write(lunout,*)' offline = ', offline write(lunout,*)' config_inca = ', config_inca write(lunout,*)' use_filtre_fft = ', use_filtre_fft write(lunout,*)' use_mpi_alloc = ', use_mpi_alloc write(lunout,*)' omp_chunk = ', omp_chunk write(lunout,*)' ok_strato = ', ok_strato write(lunout,*)' ok_gradsfile = ', ok_gradsfile c RETURN END