Ignore:
Timestamp:
Mar 29, 2023, 3:14:27 PM (18 months ago)
Author:
lguez
Message:

Sync latest trunk changes to branch LMDZ_ECRad

Location:
LMDZ6/branches/LMDZ_ECRad
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • LMDZ6/branches/LMDZ_ECRad

  • LMDZ6/branches/LMDZ_ECRad/libf/dyn3dmem/conf_gcm.F90

    r4146 r4482  
    453453        write(lunout,*)'conf_gcm: La valeur de clat passee par run.def', &
    454454             ' est differente de celle lue sur le fichier  start '
    455         STOP
     455        CALL abort_gcm("conf_gcm","stopped",1)
    456456     ENDIF
    457457
    … …  
    467467        write(lunout,*)'conf_gcm: La valeur de grossismx passee par ', &
    468468             'run.def est differente de celle lue sur le fichier  start '
    469         STOP
    470      ENDIF
     469        CALL abort_gcm("conf_gcm","stopped",1)
     470      ENDIF
    471471
    472472     !Config  Key  = grossismy
    … …  
    481481        write(lunout,*)'conf_gcm: La valeur de grossismy passee par ', &
    482482             'run.def est differente de celle lue sur le fichier  start '
    483         STOP
     483        CALL abort_gcm("conf_gcm","stopped",1)
    484484     ENDIF
    485485
    … …  
    487487        write(lunout,*) &
    488488             'conf_gcm: ***  ATTENTION !! grossismx < 1 .   *** '
    489         STOP
     489        CALL abort_gcm("conf_gcm","stopped",1)
    490490     ELSE
    491491        alphax = 1. - 1./ grossismx
    … …  
    495495        write(lunout,*) &
    496496             'conf_gcm: ***  ATTENTION !! grossismy < 1 .   *** '
    497         STOP
     497        CALL abort_gcm("conf_gcm","stopped",1)
    498498     ELSE
    499499        alphay = 1. - 1./ grossismy
    … …  
    517517           write(lunout,*)' *** fxyhypb lu sur le fichier start est ', &
    518518                'F alors  qu il est  T  sur  run.def  ***'
    519            STOP
     519           CALL abort_gcm("conf_gcm","stopped",1)
    520520        ENDIF
    521521     ELSE
    … …  
    524524           write(lunout,*)' ***  fxyhypb lu sur le fichier start est ', &
    525525                'T alors  qu il est  F  sur  run.def  ****  '
    526            STOP
     526           CALL abort_gcm("conf_gcm","stopped",1)
    527527        ENDIF
    528528     ENDIF
    … …  
    540540           write(lunout,*)'conf_gcm: La valeur de dzoomx passee par ', &
    541541                'run.def est differente de celle lue sur le fichier  start '
    542            STOP
     542           CALL abort_gcm("conf_gcm","stopped",1)
    543543        ENDIF
    544544     ENDIF
    … …  
    556556           write(lunout,*)'conf_gcm: La valeur de dzoomy passee par ', &
    557557                'run.def est differente de celle lue sur le fichier  start '
    558            STOP
     558           CALL abort_gcm("conf_gcm","stopped",1)
    559559        ENDIF
    560560     ENDIF
    … …  
    571571           write(lunout,*)'conf_gcm: La valeur de taux passee par ', &
    572572                'run.def est differente de celle lue sur le fichier  start '
    573            STOP
     573           CALL abort_gcm("conf_gcm","stopped",1)
    574574        ENDIF
    575575     ENDIF
    … …  
    586586           write(lunout,*)'conf_gcm: La valeur de tauy passee par ', &
    587587                'run.def est differente de celle lue sur le fichier  start '
    588            STOP
     588        CALL abort_gcm("conf_gcm","stopped",1)
    589589        ENDIF
    590590     ENDIF
    … …  
    607607              write(lunout,*)' *** ysinus lu sur le fichier start est F', &
    608608                   ' alors  qu il est  T  sur  run.def  ***'
    609               STOP
     609              CALL abort_gcm("conf_gcm","stopped",1)
    610610           ENDIF
    611611        ELSE
    … …  
    614614              write(lunout,*)' *** ysinus lu sur le fichier start est T', &
    615615                   ' alors  qu il est  F  sur  run.def  ****  '
    616               STOP
     616              CALL abort_gcm("conf_gcm","stopped",1)
    617617           ENDIF
    618618        ENDIF
    … …  
    644644     type_trac = 'lmdz'
    645645     CALL getin('type_trac',type_trac)
    646 
    647      !Config  Key  = config_inca
    648      !Config  Desc = Choix de configuration de INCA
    649      !Config  Def  = none
    650      !Config  Help = Choix de configuration de INCA :
    651      !Config         'none' = sans INCA
    652      !Config         'chem' = INCA avec calcul de chemie
    653      !Config         'aero' = INCA avec calcul des aerosols
    654      config_inca = 'none'
    655      CALL getin('config_inca',config_inca)
    656646
    657647     !Config  Key  = ok_dynzon
    … …  
    725715     write(lunout,*)' offline = ', offline
    726716     write(lunout,*)' type_trac = ', type_trac
    727      write(lunout,*)' config_inca = ', config_inca
    728717     write(lunout,*)' ok_dynzon = ', ok_dynzon
    729718     write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins
    … …  
    765754     IF( grossismx.LT.1. )  THEN
    766755        write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismx < 1 . *** '
    767         STOP
     756        CALL abort_gcm("conf_gcm","stopped",1)
    768757     ELSE
    769758        alphax = 1. - 1./ grossismx
    … …  
    772761     IF( grossismy.LT.1. )  THEN
    773762        write(lunout,*) 'conf_gcm: ***ATTENTION !! grossismy < 1 . *** '
    774         STOP
     763        CALL abort_gcm("conf_gcm","stopped",1)
    775764     ELSE
    776765        alphay = 1. - 1./ grossismy
    … …  
    855844     type_trac = 'lmdz'
    856845     CALL getin('type_trac',type_trac)
    857 
    858      !Config  Key  = config_inca
    859      !Config  Desc = Choix de configuration de INCA
    860      !Config  Def  = none
    861      !Config  Help = Choix de configuration de INCA :
    862      !Config         'none' = sans INCA
    863      !Config         'chem' = INCA avec calcul de chemie
    864      !Config         'aero' = INCA avec calcul des aerosols
    865      config_inca = 'none'
    866      CALL getin('config_inca',config_inca)
    867846
    868847     !Config  Key  = ok_dynzon
    … …  
    1006985     write(lunout,*)' offline = ', offline
    1007986     write(lunout,*)' type_trac = ', type_trac
    1008      write(lunout,*)' config_inca = ', config_inca
    1009987     write(lunout,*)' ok_dynzon = ', ok_dynzon
    1010988     write(lunout,*)' ok_dyn_ins = ', ok_dyn_ins
Note: See TracChangeset for help on using the changeset viewer.