c c $Header$ c SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 ) c use IOIPSL 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" c c c local: c ------ CHARACTER ch1*72,ch2*72,ch3*72,ch4*12 INTEGER tapeout 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 ---------------- tapeout = 6 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 = 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) c ............................................................... !Config Key = physic !Config Desc = Avec ls physique !Config Def = y !Config Help = Permet de faire tourner le modele sans !Config physique. physic = .TRUE. CALL getin('physic',physic) !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 = ecritphy !Config Desc = Frequence d'ecriture de la physique !Config Def = 1 !Config Help = frequence de l'ecriture du fichier histphy !Config en jours. ecritphy = 1 CALL getin('ecritphy',ecritphy) !Config Key = cycle_diurne !Config Desc = Cycle ddiurne !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 = new_oliq !Config Desc = Nouvelle eau liquide !Config Def = y !Config Help = Permet de mettre en route la !Config nouvelle parametrisation de l'eau liquide ! new_oliq = .TRUE. CALL getin('new_oliq',new_oliq) !Config Key = ok_orodr !Config Desc = Orodr ??? !Config Def = y !Config Help = Y en a pas comprendre ! !Config ok_orodr = .TRUE. CALL getin('ok_orodr',ok_orodr) !Config Key = ok_orolf !Config Desc = Orolf ?? !Config Def = y !Config Help = Connais pas ! ok_orolf = .TRUE. CALL getin('ok_orolf', ok_orolf) !Config Key = ok_limitvrai !Config Desc = Force la lecture de la bonne annee !Config Def = n !Config Help = On peut forcer le modele a lire le !Config fichier SST de la bonne annee. C'est une tres bonne !Config idee, pourquoi ne pas mettre toujours a y ??? ok_limitvrai = .FALSE. CALL getin('ok_limitvrai',ok_limitvrai) !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 = iflag_con !Config Desc = Flag de convection !Config Def = 2 !Config Help = Flag pour la convection les options suivantes existent : !Config 1 pour LMD, !Config 2 pour Tiedtke, !Config 3 pour CCM(NCAR) iflag_con = 2 CALL getin('iflag_con',iflag_con) DO i = 1, longcles clesphy0(i) = 0. ENDDO clesphy0(1) = FLOAT( iflag_con ) clesphy0(2) = FLOAT( nbapp_rad ) IF( cycle_diurne ) clesphy0(3) = 1. IF( soil_model ) clesphy0(4) = 1. IF( new_oliq ) clesphy0(5) = 1. IF( ok_orodr ) clesphy0(6) = 1. IF( ok_orolf ) clesphy0(7) = 1. IF( ok_limitvrai ) clesphy0(8) = 1. 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 write(tapeout,*)' #########################################' write(tapeout,*)' Configuration des parametres du gcm: ' write(tapeout,*)' dayref = ', dayref write(tapeout,*)' anneeref = ', anneeref write(tapeout,*)' nday = ', nday write(tapeout,*)' day_step = ', day_step write(tapeout,*)' iperiod = ', iperiod write(tapeout,*)' iconser = ', iconser write(tapeout,*)' iecri = ', iecri write(tapeout,*)' periodav = ', periodav write(tapeout,*)' idissip = ', idissip write(tapeout,*)' lstardis = ', lstardis write(tapeout,*)' nitergdiv = ', nitergdiv write(tapeout,*)' nitergrot = ', nitergrot write(tapeout,*)' niterh = ', niterh write(tapeout,*)' tetagdiv = ', tetagdiv write(tapeout,*)' tetagrot = ', tetagrot write(tapeout,*)' tetatemp = ', tetatemp write(tapeout,*)' coefdis = ', coefdis write(tapeout,*)' purmats = ', purmats write(tapeout,*)' physic = ', physic write(tapeout,*)' iphysiq = ', iphysiq write(tapeout,*)' ecritphy = ', ecritphy write(tapeout,*)' cycle_diurne = ', cycle_diurne write(tapeout,*)' soil_model = ', soil_model write(tapeout,*)' new_oliq = ', new_oliq write(tapeout,*)' ok_orodr = ', ok_orodr write(tapeout,*)' ok_orolf = ', ok_orolf write(tapeout,*)' ok_limitvrai = ', ok_limitvrai write(tapeout,*)' nbapp_rad = ', nbapp_rad write(tapeout,*)' iflag_con = ', iflag_con write(tapeout,*)' clonn = ', clonn write(tapeout,*)' clatt = ', clatt write(tapeout,*)' grossismx = ', grossismx write(tapeout,*)' grossismy = ', grossismy write(tapeout,*)' fxyhypbb = ', fxyhypbb write(tapeout,*)' dzoomxx = ', dzoomxx write(tapeout,*)' dzoomy = ', dzoomyy write(tapeout,*)' tauxx = ', tauxx write(tapeout,*)' tauyy = ', tauyy 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 write(tapeout,*)' #########################################' write(tapeout,*)' Configuration des parametres du gcm: ' write(tapeout,*)' dayref = ', dayref write(tapeout,*)' anneeref = ', anneeref write(tapeout,*)' nday = ', nday write(tapeout,*)' day_step = ', day_step write(tapeout,*)' iperiod = ', iperiod write(tapeout,*)' iconser = ', iconser write(tapeout,*)' iecri = ', iecri write(tapeout,*)' periodav = ', periodav write(tapeout,*)' idissip = ', idissip write(tapeout,*)' lstardis = ', lstardis write(tapeout,*)' nitergdiv = ', nitergdiv write(tapeout,*)' nitergrot = ', nitergrot write(tapeout,*)' niterh = ', niterh write(tapeout,*)' tetagdiv = ', tetagdiv write(tapeout,*)' tetagrot = ', tetagrot write(tapeout,*)' tetatemp = ', tetatemp write(tapeout,*)' coefdis = ', coefdis write(tapeout,*)' purmats = ', purmats write(tapeout,*)' physic = ', physic write(tapeout,*)' iphysiq = ', iphysiq write(tapeout,*)' ecritphy = ', ecritphy write(tapeout,*)' cycle_diurne = ', cycle_diurne write(tapeout,*)' soil_model = ', soil_model write(tapeout,*)' new_oliq = ', new_oliq write(tapeout,*)' ok_orodr = ', ok_orodr write(tapeout,*)' ok_orolf = ', ok_orolf write(tapeout,*)' ok_limitvrai = ', ok_limitvrai write(tapeout,*)' nbapp_rad = ', nbapp_rad write(tapeout,*)' iflag_con = ', iflag_con write(tapeout,*)' clonn = ', clon write(tapeout,*)' clatt = ', clat write(tapeout,*)' grossismx = ', grossismx write(tapeout,*)' grossismy = ', grossismy write(tapeout,*)' fxyhypbb = ', fxyhypbb write(tapeout,*)' dzoomx = ', dzoomx write(tapeout,*)' dzoomy = ', dzoomy write(tapeout,*)' taux = ', taux write(tapeout,*)' tauy = ', tauy c RETURN END