Ignore:
Timestamp:
2019-07-22T10:32:59+02:00 (14 months ago)
Author:
smasson
Message:

dev_r10984_HPC-13 : improve error handling, see #2307 and #2285

File:
1 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/2019/dev_r10984_HPC-13_IRRMANN_BDY_optimization/src/OCE/DOM/domain.F90

    r11258 r11317  
    308308      REWIND( numnam_ref )              ! Namelist namrun in reference namelist : Parameters of the run 
    309309      READ  ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 
    310 901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namrun in reference namelist', lwp ) 
     310901   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namrun in reference namelist' ) 
    311311      REWIND( numnam_cfg )              ! Namelist namrun in configuration namelist : Parameters of the run 
    312312      READ  ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 
    313 902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namrun in configuration namelist', lwp ) 
     313902   IF( ios >  0 )   CALL ctl_nam ( ios , 'namrun in configuration namelist' ) 
    314314      IF(lwm) WRITE ( numond, namrun ) 
    315315      ! 
     
    401401      REWIND( numnam_ref )              ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 
    402402      READ  ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 
    403 903   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namdom in reference namelist', lwp ) 
     403903   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namdom in reference namelist' ) 
    404404      REWIND( numnam_cfg )              ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 
    405405      READ  ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 
    406 904   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdom in configuration namelist', lwp ) 
     406904   IF( ios >  0 )   CALL ctl_nam ( ios , 'namdom in configuration namelist' ) 
    407407      IF(lwm) WRITE( numond, namdom ) 
    408408      ! 
     
    433433      REWIND( numnam_ref )              ! Namelist namnc4 in reference namelist : NETCDF 
    434434      READ  ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 
    435 907   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namnc4 in reference namelist', lwp ) 
     435907   IF( ios /= 0 )   CALL ctl_nam ( ios , 'namnc4 in reference namelist' ) 
    436436      REWIND( numnam_cfg )              ! Namelist namnc4 in configuration namelist : NETCDF 
    437437      READ  ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 
    438 908   IF( ios >  0 )   CALL ctl_nam ( ios , 'namnc4 in configuration namelist', lwp ) 
     438908   IF( ios >  0 )   CALL ctl_nam ( ios , 'namnc4 in configuration namelist' ) 
    439439      IF(lwm) WRITE( numond, namnc4 ) 
    440440 
     
    511511 
    512512 
    513    SUBROUTINE domain_cfg( ldtxt, cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 
     513   SUBROUTINE domain_cfg( cd_cfg, kk_cfg, kpi, kpj, kpk, kperio ) 
    514514      !!---------------------------------------------------------------------- 
    515515      !!                     ***  ROUTINE dom_nam  *** 
     
    519519      !! ** Method  :   read the cn_domcfg NetCDF file 
    520520      !!---------------------------------------------------------------------- 
    521       CHARACTER(len=*), DIMENSION(:), INTENT(out) ::   ldtxt           ! stored print information 
    522521      CHARACTER(len=*)              , INTENT(out) ::   cd_cfg          ! configuration name 
    523522      INTEGER                       , INTENT(out) ::   kk_cfg          ! configuration resolution 
     
    525524      INTEGER                       , INTENT(out) ::   kperio          ! lateral global domain b.c.  
    526525      ! 
    527       INTEGER ::   inum, ii   ! local integer 
     526      INTEGER ::   inum   ! local integer 
    528527      REAL(wp) ::   zorca_res                     ! local scalars 
    529528      REAL(wp) ::   zperio                        !   -      - 
     
    531530      !!---------------------------------------------------------------------- 
    532531      ! 
    533       ii = 1 
    534       WRITE(ldtxt(ii),*) '           '                                                    ;   ii = ii+1 
    535       WRITE(ldtxt(ii),*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file'  ;   ii = ii+1 
    536       WRITE(ldtxt(ii),*) '~~~~~~~~~~ '                                                    ;   ii = ii+1 
     532      WRITE(numout,*) '           ' 
     533      WRITE(numout,*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file' 
     534      WRITE(numout,*) '~~~~~~~~~~ ' 
    537535      ! 
    538536      CALL iom_open( cn_domcfg, inum ) 
     
    545543         CALL iom_get( inum, 'ORCA_index', zorca_res )   ;   kk_cfg = NINT( zorca_res ) 
    546544         ! 
    547          WRITE(ldtxt(ii),*) '   .'                                                     ;   ii = ii+1 
    548          WRITE(ldtxt(ii),*) '   ==>>>   ORCA configuration '                           ;   ii = ii+1 
    549          WRITE(ldtxt(ii),*) '   .'                                                     ;   ii = ii+1 
     545         WRITE(numout,*) '   .' 
     546         WRITE(numout,*) '   ==>>>   ORCA configuration ' 
     547         WRITE(numout,*) '   .' 
    550548         ! 
    551549      ELSE                                !- cd_cfg & k_cfg are not used 
     
    568566      CALL iom_close( inum ) 
    569567      ! 
    570       WRITE(ldtxt(ii),*) '      cn_cfg = ', TRIM(cd_cfg), '   nn_cfg = ', kk_cfg             ;   ii = ii+1 
    571       WRITE(ldtxt(ii),*) '      jpiglo = ', kpi                                              ;   ii = ii+1 
    572       WRITE(ldtxt(ii),*) '      jpjglo = ', kpj                                              ;   ii = ii+1 
    573       WRITE(ldtxt(ii),*) '      jpkglo = ', kpk                                              ;   ii = ii+1 
    574       WRITE(ldtxt(ii),*) '      type of global domain lateral boundary   jperio = ', kperio  ;   ii = ii+1 
     568      WRITE(numout,*) '      cn_cfg = ', TRIM(cd_cfg), '   nn_cfg = ', kk_cfg 
     569      WRITE(numout,*) '      jpiglo = ', kpi 
     570      WRITE(numout,*) '      jpjglo = ', kpj 
     571      WRITE(numout,*) '      jpkglo = ', kpk 
     572      WRITE(numout,*) '      type of global domain lateral boundary   jperio = ', kperio 
    575573      !         
    576574   END SUBROUTINE domain_cfg 
Note: See TracChangeset for help on using the changeset viewer.