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.

File:
1 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
Note: See TracChangeset for help on using the changeset viewer.