Changeset 2141 for LMDZ5/trunk/libf


Ignore:
Timestamp:
Nov 10, 2014, 6:32:56 PM (10 years ago)
Author:
lguez
Message:

iphysiq must be a multiple of iperiod: added the test.

Location:
LMDZ5/trunk/libf
Files:
3 edited

Legend:

Unmodified
Added
Removed

  • LMDZ5/trunk/libf/dyn3d/conf_gcm.F

    r2083 r2141  
    355355       CALL getin('ok_guide',ok_guide)
    356356
    357 !    ...............................................................
    358 
    359357!Config  Key  =  read_start
    360358!Config  Desc = Initialize model using a 'start.nc' file
    … …  
    381379       CALL getin('iphysiq', iphysiq)
    382380
     381       if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm",
     382     $      "iphysiq must be a multiple of iperiod", 1)
     383
    383384!Config  Key  = ip_ebil_dyn
    384385!Config  Desc = PRINT level for energy conserv. diag.
    … …  
    421422!
    422423      IF( ABS(clat - clatt).GE. 0.001 )  THEN
    423         write(lunout,*)'conf_gcm: La valeur de clat passee par run.def',     &
     424        write(lunout,*)'conf_gcm: La valeur de clat passee par run.def',
    424425     &    ' est differente de celle lue sur le fichier  start '
    425426        STOP
    … …  
    436437
    437438      IF( ABS(grossismx - grossismxx).GE. 0.001 )  THEN
    438         write(lunout,*)'conf_gcm: La valeur de grossismx passee par ',       &
     439        write(lunout,*)'conf_gcm: La valeur de grossismx passee par ',
    439440     &  'run.def est differente de celle lue sur le fichier  start '
    440441        STOP
    … …  
    450451
    451452      IF( ABS(grossismy - grossismyy).GE. 0.001 )  THEN
    452         write(lunout,*)'conf_gcm: La valeur de grossismy passee par ',        &
     453        write(lunout,*)'conf_gcm: La valeur de grossismy passee par ',
    453454     & 'run.def est differente de celle lue sur le fichier  start '
    454455        STOP
    … …  
    456457     
    457458      IF( grossismx.LT.1. )  THEN
    458         write(lunout,*)                                                        &
     459        write(lunout,*)
    459460     &       'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
    460461         STOP
    … …  
    465466
    466467      IF( grossismy.LT.1. )  THEN
    467         write(lunout,*)                                                        &
     468        write(lunout,*)
    468469     &       'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
    469470         STOP
    … …  
    489490         IF( fxyhypbb )     THEN
    490491            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
    491             write(lunout,*)' *** fxyhypb lu sur le fichier start est ',     &
    492      &       'F alors  qu il est  T  sur  run.def  ***'
     492            write(lunout,*)' *** fxyhypb lu sur le fichier start est ',
     493     *       'F alors  qu il est  T  sur  run.def  ***'
    493494              STOP
    494495         ENDIF
    … …  
    496497         IF( .NOT.fxyhypbb )   THEN
    497498            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
    498             write(lunout,*)' ***  fxyhypb lu sur le fichier start est ',     &
    499      &        'T alors  qu il est  F  sur  run.def  ****  '
     499            write(lunout,*)' ***  fxyhypb lu sur le fichier start est ',
     500     *        'T alors  qu il est  F  sur  run.def  ****  '
    500501              STOP
    501502         ENDIF
    … …  
    512513      IF( fxyhypb )  THEN
    513514       IF( ABS(dzoomx - dzoomxx).GE. 0.001 )  THEN
    514         write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ',         &
    515      &  'run.def est differente de celle lue sur le fichier  start '
     515        write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ',
     516     *  'run.def est differente de celle lue sur le fichier  start '
    516517        STOP
    517518       ENDIF
    … …  
    528529      IF( fxyhypb )  THEN
    529530       IF( ABS(dzoomy - dzoomyy).GE. 0.001 )  THEN
    530         write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ',          &
    531      & 'run.def est differente de celle lue sur le fichier  start '
     531        write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ',
     532     * 'run.def est differente de celle lue sur le fichier  start '
    532533        STOP
    533534       ENDIF
    … …  
    543544      IF( fxyhypb )  THEN
    544545       IF( ABS(taux - tauxx).GE. 0.001 )  THEN
    545         write(lunout,*)'conf_gcm: La valeur de taux passee par ',           &
    546      & 'run.def est differente de celle lue sur le fichier  start '
     546        write(lunout,*)'conf_gcm: La valeur de taux passee par ',
     547     * 'run.def est differente de celle lue sur le fichier  start '
    547548        STOP
    548549       ENDIF
    … …  
    558559      IF( fxyhypb )  THEN
    559560       IF( ABS(tauy - tauyy).GE. 0.001 )  THEN
    560         write(lunout,*)'conf_gcm: La valeur de tauy passee par ',           &
    561      & 'run.def est differente de celle lue sur le fichier  start '
     561        write(lunout,*)'conf_gcm: La valeur de tauy passee par ',
     562     * 'run.def est differente de celle lue sur le fichier  start '
    562563        STOP
    563564       ENDIF
    … …  
    579580          IF( ysinuss )     THEN
    580581            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
    581             write(lunout,*)' *** ysinus lu sur le fichier start est F',     &
    582      &       ' alors  qu il est  T  sur  run.def  ***'
     582            write(lunout,*)' *** ysinus lu sur le fichier start est F',
     583     *       ' alors  qu il est  T  sur  run.def  ***'
    583584            STOP
    584585          ENDIF
    … …  
    586587          IF( .NOT.ysinuss )   THEN
    587588            write(lunout,*)' ********  PBS DANS  CONF_GCM  ******** '
    588             write(lunout,*)' *** ysinus lu sur le fichier start est T',     &
    589      &        ' alors  qu il est  F  sur  run.def  ****  '
     589            write(lunout,*)' *** ysinus lu sur le fichier start est T',
     590     *        ' alors  qu il est  F  sur  run.def  ****  '
    590591              STOP
    591592          ENDIF
    … …  
    725726
    726727      IF( grossismx.LT.1. )  THEN
    727         write(lunout,*)'conf_gcm: ***ATTENTION !! grossismx < 1 . *** '
     728        write(lunout,*)
     729     &   'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
    728730         STOP
    729731      ELSE
    … …  
    869871      vert_prof_dissip = merge(1, 0, ok_strato .and. llm==39)
    870872      CALL getin('vert_prof_dissip', vert_prof_dissip)
    871       call assert(vert_prof_dissip == 0 .or. vert_prof_dissip ==  1,        &
    872      &     "bad value for vert_prof_dissip")
     873      call assert(vert_prof_dissip == 0 .or. vert_prof_dissip ==  1,
     874     $     "bad value for vert_prof_dissip")
    873875
    874876!Config  Key  = ok_gradsfile
    … …  
    897899
    898900      write(lunout,*)' #########################################'
    899       write(lunout,*)' Configuration des parametres de cel0'                &
     901      write(lunout,*)' Configuration des parametres de cel0'
    900902     &             //'_limit: '
    901903      write(lunout,*)' planet_type = ', planet_type

  • LMDZ5/trunk/libf/dyn3dmem/conf_gcm.F

    r2111 r2141  
    22! $Id$
    33!
    4 c
    5 c
     4!
     5!
    66      SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 )
    7 c
     7!
    88      USE control_mod
    99#ifdef CPP_IOIPSL
    … …  
    2121
    2222      IMPLICIT NONE
    23 c-----------------------------------------------------------------------
    24 c     Auteurs :   L. Fairhead , P. Le Van  .
    25 c
    26 c     Arguments :
    27 c
    28 c     tapedef   :
    29 c     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para-
    30 c     -metres  du zoom  avec  celles lues sur le fichier start .
    31 c      clesphy0 :  sortie  .
    32 c
     23!-----------------------------------------------------------------------
     24!     Auteurs :   L. Fairhead , P. Le Van  .
     25!
     26!     Arguments :
     27!
     28!     tapedef   :
     29!     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para-
     30!     -metres  du zoom  avec  celles lues sur le fichier start .
     31!      clesphy0 :  sortie  .
     32!
    3333       LOGICAL etatinit
    3434       INTEGER tapedef
    … …  
    3737       PARAMETER(     longcles = 20 )
    3838       REAL clesphy0( longcles )
    39 c
    40 c   Declarations :
    41 c   --------------
     39!
     40!   Declarations :
     41!   --------------
    4242#include "dimensions.h"
    4343#include "paramet.h"
    … …  
    5151! #include "clesphys.h"
    5252#include "iniprint.h"
    53 c
    54 c
    55 c   local:
    56 c   ------
     53!
     54!
     55!   local:
     56!   ------
    5757
    5858      CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
    … …  
    6666      integer,external :: OMP_GET_NUM_THREADS
    6767#endif
    68 c
    69 c  -------------------------------------------------------------------
    70 c
    71 c       .........     Version  du 29/04/97       ..........
    72 c
    73 c   Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot,
    74 c      tetatemp   ajoutes  pour la dissipation   .
    75 c
    76 c   Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb **
    77 c
    78 c  Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb.
    79 c    Sinon , choix de fxynew  , a derivee sinusoidale  ..
    80 c
    81 c   ......  etatinit = . TRUE. si defrun  est appele dans ETAT0_LMD  ou
    82 c         LIMIT_LMD  pour l'initialisation de start.dat (dic) et
    83 c                de limit.dat ( dic)                        ...........
    84 c           Sinon  etatinit = . FALSE .
    85 c
    86 c   Donc etatinit = .F.  si on veut comparer les valeurs de  grossismx ,
    87 c    grossismy,clon,clat, fxyhypb  lues sur  le fichier  start  avec
    88 c   celles passees  par run.def ,  au debut du gcm, apres l'appel a
    89 c    lectba . 
    90 c   Ces parmetres definissant entre autres la grille et doivent etre
    91 c   pareils et coherents , sinon il y aura  divergence du gcm .
    92 c
    93 c-----------------------------------------------------------------------
    94 c   initialisations:
    95 c   ----------------
    96      
     68!
     69!  -------------------------------------------------------------------
     70!
     71!       .........     Version  du 29/04/97       ..........
     72!
     73!   Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot,
     74!      tetatemp   ajoutes  pour la dissipation   .
     75!
     76!   Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb **
     77!
     78!  Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb.
     79!    Sinon , choix de fxynew  , a derivee sinusoidale  ..
     80!
     81!   ......  etatinit = . TRUE. si defrun  est appele dans ETAT0_LMD  ou
     82!         LIMIT_LMD  pour l'initialisation de start.dat (dic) et
     83!                de limit.dat ( dic)                        ...........
     84!           Sinon  etatinit = . FALSE .
     85!
     86!   Donc etatinit = .F.  si on veut comparer les valeurs de  grossismx ,
     87!    grossismy,clon,clat, fxyhypb  lues sur  le fichier  start  avec
     88!   celles passees  par run.def ,  au debut du gcm, apres l'appel a
     89!    lectba . 
     90!   Ces parmetres definissant entre autres la grille et doivent etre
     91!   pareils et coherents , sinon il y aura  divergence du gcm .
     92!
     93!-----------------------------------------------------------------------
     94!   initialisations:
     95!   ----------------
     96
    9797!Config  Key  = lunout
    9898!Config  Desc = unite de fichier pour les impressions
    … …  
    134134      CALL getin('prt_level',prt_level)
    135135
    136 c-----------------------------------------------------------------------
    137 c  Parametres de controle du run:
    138 c-----------------------------------------------------------------------
     136!-----------------------------------------------------------------------
     137!  Parametres de controle du run:
     138!-----------------------------------------------------------------------
    139139!Config  Key  = planet_type
    140140!Config  Desc = planet type ("earth", "mars", "venus", ...)
    … …  
    266266       CALL getin('dissip_period',dissip_period)
    267267
    268 ccc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...
    269 ccc
     268!cc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...
     269!cc
    270270
    271271!Config  Key  = lstardis
    … …  
    409409       CALL getin('iphysiq', iphysiq)
    410410
     411       if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm",
     412     $      "iphysiq must be a multiple of iperiod", 1)
     413
    411414!Config  Key  = ip_ebil_dyn
    412415!Config  Desc = PRINT level for energy conserv. diag.
    … …  
    422425
    423426
    424 ccc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...
    425 c     .........   (  modif  le 17/04/96 )   .........
    426 c
     427!cc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...
     428!     .........   (  modif  le 17/04/96 )   .........
     429!
    427430      IF( etatinit ) GO TO 100
    428431
    … …  
    443446       CALL getin('clat',clatt)
    444447
    445 c
    446 c
     448!
     449!
    447450      IF( ABS(clat - clatt).GE. 0.001 )  THEN
    448451        write(lunout,*)'conf_gcm: La valeur de clat passee par run.def',
    … …  
    498501
    499502      write(lunout,*)'conf_gcm: alphax alphay',alphax,alphay
    500 c
    501 c    alphax et alphay sont les anciennes formulat. des grossissements
    502 c
    503 c
     503!
     504!    alphax et alphay sont les anciennes formulat. des grossissements
     505!
     506!
    504507
    505508!Config  Key  = fxyhypb
    … …  
    526529         ENDIF
    527530      ENDIF
    528 c
     531!
    529532!Config  Key  = dzoomx
    530533!Config  Desc = extension en longitude
    … …  
    589592      ENDIF
    590593
    591 cc
     594!c
    592595      IF( .NOT.fxyhypb  )  THEN
    593596
    … …  
    617620        ENDIF
    618621      ENDIF ! of IF( .NOT.fxyhypb  )
    619 c
     622!
    620623!Config  Key  = offline
    621624!Config  Desc = Nouvelle eau liquide
    … …  
    722725
    723726      RETURN
    724 c   ...............................................
    725 c
     727!   ...............................................
     728!
    726729100   CONTINUE
    727730!Config  Key  = clon
    … …  
    767770
    768771      IF( grossismy.LT.1. )  THEN
    769         write(lunout,*)
    770      &  'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
     772        write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** '
    771773         STOP
    772774      ELSE
    … …  
    775777
    776778      write(lunout,*)'conf_gcm: alphax alphay ',alphax,alphay
    777 c
    778 c    alphax et alphay sont les anciennes formulat. des grossissements
    779 c
    780 c
     779!
     780!    alphax et alphay sont les anciennes formulat. des grossissements
     781!
     782!
    781783
    782784!Config  Key  = fxyhypb
    … …  
    826828       ysinus = .TRUE.
    827829       CALL getin('ysinus',ysinus)
    828 c
     830!
    829831!Config  Key  = offline
    830832!Config  Desc = Nouvelle eau liquide
    … …  
    891893!Config  Def  = false
    892894!Config  Help = permet d'activer l'utilisation des FFT pour effectuer
    893 !Config         le filtrage aux poles. 
     895!Config         le filtrage aux poles.
    894896      use_filtre_fft=.FALSE.
    895897      CALL getin('use_filtre_fft',use_filtre_fft)
    … …  
    10011003      write(lunout,*)' ok_limit = ', ok_limit
    10021004      write(lunout,*)' ok_etat0 = ', ok_etat0
    1003 c
     1005!
    10041006      RETURN
    10051007      END

  • LMDZ5/trunk/libf/dyn3dpar/conf_gcm.F

    r2111 r2141  
    22! $Id$
    33!
    4 c
    5 c
     4!
     5!
    66      SUBROUTINE conf_gcm( tapedef, etatinit, clesphy0 )
    7 c
     7!
    88      USE control_mod
    99#ifdef CPP_IOIPSL
    … …  
    2020
    2121      IMPLICIT NONE
    22 c-----------------------------------------------------------------------
    23 c     Auteurs :   L. Fairhead , P. Le Van  .
    24 c
    25 c     Arguments :
    26 c
    27 c     tapedef   :
    28 c     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para-
    29 c     -metres  du zoom  avec  celles lues sur le fichier start .
    30 c      clesphy0 :  sortie  .
    31 c
     22!-----------------------------------------------------------------------
     23!     Auteurs :   L. Fairhead , P. Le Van  .
     24!
     25!     Arguments :
     26!
     27!     tapedef   :
     28!     etatinit  :     = TRUE   , on ne  compare pas les valeurs des para-
     29!     -metres  du zoom  avec  celles lues sur le fichier start .
     30!      clesphy0 :  sortie  .
     31!
    3232       LOGICAL etatinit
    3333       INTEGER tapedef
    … …  
    3636       PARAMETER(     longcles = 20 )
    3737       REAL clesphy0( longcles )
    38 c
    39 c   Declarations :
    40 c   --------------
     38!
     39!   Declarations :
     40!   --------------
    4141#include "dimensions.h"
    4242#include "paramet.h"
    … …  
    5050! #include "clesphys.h"
    5151#include "iniprint.h"
    52 c
    53 c
    54 c   local:
    55 c   ------
     52!
     53!
     54!   local:
     55!   ------
    5656
    5757      CHARACTER ch1*72,ch2*72,ch3*72,ch4*12
    … …  
    6565      integer,external :: OMP_GET_NUM_THREADS
    6666#endif
    67 c
    68 c  -------------------------------------------------------------------
    69 c
    70 c       .........     Version  du 29/04/97       ..........
    71 c
    72 c   Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot,
    73 c      tetatemp   ajoutes  pour la dissipation   .
    74 c
    75 c   Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb **
    76 c
    77 c  Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb.
    78 c    Sinon , choix de fxynew  , a derivee sinusoidale  ..
    79 c
    80 c   ......  etatinit = . TRUE. si defrun  est appele dans ETAT0_LMD  ou
    81 c         LIMIT_LMD  pour l'initialisation de start.dat (dic) et
    82 c                de limit.dat ( dic)                        ...........
    83 c           Sinon  etatinit = . FALSE .
    84 c
    85 c   Donc etatinit = .F.  si on veut comparer les valeurs de  grossismx ,
    86 c    grossismy,clon,clat, fxyhypb  lues sur  le fichier  start  avec
    87 c   celles passees  par run.def ,  au debut du gcm, apres l'appel a
    88 c    lectba . 
    89 c   Ces parmetres definissant entre autres la grille et doivent etre
    90 c   pareils et coherents , sinon il y aura  divergence du gcm .
    91 c
    92 c-----------------------------------------------------------------------
    93 c   initialisations:
    94 c   ----------------
    95      
     67!
     68!  -------------------------------------------------------------------
     69!
     70!       .........     Version  du 29/04/97       ..........
     71!
     72!   Nouveaux parametres nitergdiv,nitergrot,niterh,tetagdiv,tetagrot,
     73!      tetatemp   ajoutes  pour la dissipation   .
     74!
     75!   Autre parametre ajoute en fin de liste de tapedef : ** fxyhypb **
     76!
     77!  Si fxyhypb = .TRUE. , choix de la fonction a derivee tangente hyperb.
     78!    Sinon , choix de fxynew  , a derivee sinusoidale  ..
     79!
     80!   ......  etatinit = . TRUE. si defrun  est appele dans ETAT0_LMD  ou
     81!         LIMIT_LMD  pour l'initialisation de start.dat (dic) et
     82!                de limit.dat ( dic)                        ...........
     83!           Sinon  etatinit = . FALSE .
     84!
     85!   Donc etatinit = .F.  si on veut comparer les valeurs de  grossismx ,
     86!    grossismy,clon,clat, fxyhypb  lues sur  le fichier  start  avec
     87!   celles passees  par run.def ,  au debut du gcm, apres l'appel a
     88!    lectba . 
     89!   Ces parmetres definissant entre autres la grille et doivent etre
     90!   pareils et coherents , sinon il y aura  divergence du gcm .
     91!
     92!-----------------------------------------------------------------------
     93!   initialisations:
     94!   ----------------
     95
    9696!Config  Key  = lunout
    9797!Config  Desc = unite de fichier pour les impressions
    … …  
    133133      CALL getin('prt_level',prt_level)
    134134
    135 c-----------------------------------------------------------------------
    136 c  Parametres de controle du run:
    137 c-----------------------------------------------------------------------
     135!-----------------------------------------------------------------------
     136!  Parametres de controle du run:
     137!-----------------------------------------------------------------------
    138138!Config  Key  = planet_type
    139139!Config  Desc = planet type ("earth", "mars", "venus", ...)
    … …  
    265265       CALL getin('dissip_period',dissip_period)
    266266
    267 ccc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...
    268 ccc
     267!cc  ....   P. Le Van , modif le 29/04/97 .pour la dissipation  ...
     268!cc
    269269
    270270!Config  Key  = lstardis
    … …  
    408408       CALL getin('iphysiq', iphysiq)
    409409
     410       if (mod(iphysiq, iperiod) /= 0) call abort_gcm("conf_gcm",
     411     $      "iphysiq must be a multiple of iperiod", 1)
     412
    410413!Config  Key  = ip_ebil_dyn
    411414!Config  Desc = PRINT level for energy conserv. diag.
    … …  
    421424
    422425
    423 ccc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...
    424 c     .........   (  modif  le 17/04/96 )   .........
    425 c
     426!cc  ....   P. Le Van , ajout  le 7/03/95 .pour le zoom ...
     427!     .........   (  modif  le 17/04/96 )   .........
     428!
    426429      IF( etatinit ) GO TO 100
    427430
    … …  
    442445       CALL getin('clat',clatt)
    443446
    444 c
    445 c
     447!
     448!
    446449      IF( ABS(clat - clatt).GE. 0.001 )  THEN
    447450        write(lunout,*)'conf_gcm: La valeur de clat passee par run.def',
    … …  
    497500
    498501      write(lunout,*)'conf_gcm: alphax alphay',alphax,alphay
    499 c
    500 c    alphax et alphay sont les anciennes formulat. des grossissements
    501 c
    502 c
     502!
     503!    alphax et alphay sont les anciennes formulat. des grossissements
     504!
     505!
    503506
    504507!Config  Key  = fxyhypb
    … …  
    525528         ENDIF
    526529      ENDIF
    527 c
     530!
    528531!Config  Key  = dzoomx
    529532!Config  Desc = extension en longitude
    … …  
    588591      ENDIF
    589592
    590 cc
     593!c
    591594      IF( .NOT.fxyhypb  )  THEN
    592595
    … …  
    616619        ENDIF
    617620      ENDIF ! of IF( .NOT.fxyhypb  )
    618 c
     621!
    619622!Config  Key  = offline
    620623!Config  Desc = Nouvelle eau liquide
    … …  
    721724
    722725      RETURN
    723 c   ...............................................
    724 c
     726!   ...............................................
     727!
    725728100   CONTINUE
    726729!Config  Key  = clon
    … …  
    766769
    767770      IF( grossismy.LT.1. )  THEN
    768         write(lunout,*)
    769      &  'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
     771        write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** '
    770772         STOP
    771773      ELSE
    … …  
    774776
    775777      write(lunout,*)'conf_gcm: alphax alphay ',alphax,alphay
    776 c
    777 c    alphax et alphay sont les anciennes formulat. des grossissements
    778 c
    779 c
     778!
     779!    alphax et alphay sont les anciennes formulat. des grossissements
     780!
     781!
    780782
    781783!Config  Key  = fxyhypb
    … …  
    825827       ysinus = .TRUE.
    826828       CALL getin('ysinus',ysinus)
    827 c
     829!
    828830!Config  Key  = offline
    829831!Config  Desc = Nouvelle eau liquide
    … …  
    890892!Config  Def  = false
    891893!Config  Help = permet d'activer l'utilisation des FFT pour effectuer
    892 !Config         le filtrage aux poles. 
     894!Config         le filtrage aux poles.
    893895      use_filtre_fft=.FALSE.
    894896      CALL getin('use_filtre_fft',use_filtre_fft)
    … …  
    9991001      write(lunout,*)' ok_limit = ', ok_limit
    10001002      write(lunout,*)' ok_etat0 = ', ok_etat0
    1001 c
     1003!
    10021004      RETURN
    10031005      END
Note: See TracChangeset for help on using the changeset viewer.