- Timestamp:
- 2019-10-09T15:02:14+02:00 (5 years ago)
- Location:
- NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/tests/BENCH/MY_SRC
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/tests/BENCH/MY_SRC/usrdef_nam.F90
r11536 r11671 61 61 !!---------------------------------------------------------------------- 62 62 ! 63 REWIND( numnam_cfg ) ! Namelist namusr_def (exist in namelist_cfg only)64 63 READ ( numnam_cfg, namusr_def, IOSTAT = ios, ERR = 903 ) 65 64 903 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namusr_def in configuration namelist' ) … … 72 71 IF( nn_isize < 0 .AND. nn_jsize < 0 ) THEN 73 72 ! 74 REWIND( numnam_ref ) ! Namelist nammpp in reference namelist: mpi variables75 73 READ ( numnam_ref, nammpp, IOSTAT = ios, ERR = 901) 76 74 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'nammpp in reference namelist' ) 77 75 ! 78 REWIND( numnam_cfg ) ! Namelist nammpp in configuration namelist: mpi variables79 76 READ ( numnam_cfg, nammpp, IOSTAT = ios, ERR = 902 ) 80 77 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'nammpp in configuration namelist' ) -
NEMO/branches/2019/dev_r11613_ENHANCE-04_namelists_as_internalfiles/tests/BENCH/MY_SRC/zdfiwm.F90
r11536 r11671 404 404 !!---------------------------------------------------------------------- 405 405 ! 406 REWIND( numnam_ref ) ! Namelist namzdf_iwm in reference namelist : Wave-driven mixing407 406 READ ( numnam_ref, namzdf_iwm, IOSTAT = ios, ERR = 901) 408 407 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in reference namelist' ) 409 408 ! 410 REWIND( numnam_cfg ) ! Namelist namzdf_iwm in configuration namelist : Wave-driven mixing411 409 READ ( numnam_cfg, namzdf_iwm, IOSTAT = ios, ERR = 902 ) 412 410 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namzdf_iwm in configuration namelist' )
Note: See TracChangeset
for help on using the changeset viewer.