- Timestamp:
- 2019-07-25T14:02:55+02:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11265_ASINTER-01_Guillaume_ABL1D/src/OCE/DOM/domain.F90
r11258 r11348 308 308 REWIND( numnam_ref ) ! Namelist namrun in reference namelist : Parameters of the run 309 309 READ ( numnam_ref, namrun, IOSTAT = ios, ERR = 901) 310 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist' , lwp)310 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namrun in reference namelist' ) 311 311 REWIND( numnam_cfg ) ! Namelist namrun in configuration namelist : Parameters of the run 312 312 READ ( numnam_cfg, namrun, IOSTAT = ios, ERR = 902 ) 313 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist' , lwp)313 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namrun in configuration namelist' ) 314 314 IF(lwm) WRITE ( numond, namrun ) 315 315 ! … … 401 401 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 402 402 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 903) 403 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist' , lwp)403 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namdom in reference namelist' ) 404 404 REWIND( numnam_cfg ) ! Namelist namdom in configuration namelist : space & time domain (bathymetry, mesh, timestep) 405 405 READ ( numnam_cfg, namdom, IOSTAT = ios, ERR = 904 ) 406 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist' , lwp)406 904 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdom in configuration namelist' ) 407 407 IF(lwm) WRITE( numond, namdom ) 408 408 ! … … 433 433 REWIND( numnam_ref ) ! Namelist namnc4 in reference namelist : NETCDF 434 434 READ ( numnam_ref, namnc4, IOSTAT = ios, ERR = 907) 435 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist' , lwp)435 907 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namnc4 in reference namelist' ) 436 436 REWIND( numnam_cfg ) ! Namelist namnc4 in configuration namelist : NETCDF 437 437 READ ( numnam_cfg, namnc4, IOSTAT = ios, ERR = 908 ) 438 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist' , lwp)438 908 IF( ios > 0 ) CALL ctl_nam ( ios , 'namnc4 in configuration namelist' ) 439 439 IF(lwm) WRITE( numond, namnc4 ) 440 440 … … 511 511 512 512 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 ) 514 514 !!---------------------------------------------------------------------- 515 515 !! *** ROUTINE dom_nam *** … … 519 519 !! ** Method : read the cn_domcfg NetCDF file 520 520 !!---------------------------------------------------------------------- 521 CHARACTER(len=*), DIMENSION(:), INTENT(out) :: ldtxt ! stored print information522 521 CHARACTER(len=*) , INTENT(out) :: cd_cfg ! configuration name 523 522 INTEGER , INTENT(out) :: kk_cfg ! configuration resolution … … 525 524 INTEGER , INTENT(out) :: kperio ! lateral global domain b.c. 526 525 ! 527 INTEGER :: inum , ii! local integer526 INTEGER :: inum ! local integer 528 527 REAL(wp) :: zorca_res ! local scalars 529 528 REAL(wp) :: zperio ! - - … … 531 530 !!---------------------------------------------------------------------- 532 531 ! 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 IF(lwp) THEN 533 WRITE(numout,*) ' ' 534 WRITE(numout,*) 'domain_cfg : domain size read in ', TRIM( cn_domcfg ), ' file' 535 WRITE(numout,*) '~~~~~~~~~~ ' 536 ENDIF 537 537 ! 538 538 CALL iom_open( cn_domcfg, inum ) … … 545 545 CALL iom_get( inum, 'ORCA_index', zorca_res ) ; kk_cfg = NINT( zorca_res ) 546 546 ! 547 WRITE(ldtxt(ii),*) ' .' ; ii = ii+1 548 WRITE(ldtxt(ii),*) ' ==>>> ORCA configuration ' ; ii = ii+1 549 WRITE(ldtxt(ii),*) ' .' ; ii = ii+1 547 IF(lwp) THEN 548 WRITE(numout,*) ' .' 549 WRITE(numout,*) ' ==>>> ORCA configuration ' 550 WRITE(numout,*) ' .' 551 ENDIF 550 552 ! 551 553 ELSE !- cd_cfg & k_cfg are not used … … 568 570 CALL iom_close( inum ) 569 571 ! 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 572 IF(lwp) THEN 573 WRITE(numout,*) ' cn_cfg = ', TRIM(cd_cfg), ' nn_cfg = ', kk_cfg 574 WRITE(numout,*) ' jpiglo = ', kpi 575 WRITE(numout,*) ' jpjglo = ', kpj 576 WRITE(numout,*) ' jpkglo = ', kpk 577 WRITE(numout,*) ' type of global domain lateral boundary jperio = ', kperio 578 ENDIF 575 579 ! 576 580 END SUBROUTINE domain_cfg
Note: See TracChangeset
for help on using the changeset viewer.