- Timestamp:
- 2013-04-18T16:38:06+02:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/LIM_SRC_2/iceini_2.F90
r3625 r3875 72 72 & 'use more ocean levels or less ice layers/categories.' ) 73 73 74 ! ! Open the namelist file 75 CALL ctl_opn( numnam_ice, 'namelist_ice', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 74 ! ! Open the reference and configuration namelist files and namelist output file 75 CALL ctl_opn( numnam_ice_ref, 'namelist_ice_ref', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 76 CALL ctl_opn( numnam_ice_cfg, 'namelist_ice_cfg', 'OLD', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 77 CALL ctl_opn( numoni, 'output.namelist.ice', 'REPLACE', 'FORMATTED', 'SEQUENTIAL', -1, numout, lwp ) 76 78 ! 77 79 CALL ice_run_2 ! read in namelist some run parameters … … 111 113 !!------------------------------------------------------------------- 112 114 NAMELIST/namicerun/ cn_icerst_in, cn_icerst_out, ln_limdyn, ln_limdmp, acrit, hsndif, hicdif 115 INTEGER :: ios ! Local integer output status for namelist read 113 116 !!------------------------------------------------------------------- 114 117 ! 115 REWIND( numnam_ice ) ! Read Namelist namicerun 116 READ ( numnam_ice , namicerun ) 118 REWIND( numnam_ice_ref ) ! Namelist namicerun in reference namelist : Parameters for ice 119 READ ( numnam_ice_ref, namicerun, IOSTAT = ios, ERR = 901) 120 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in reference namelist', lwp ) 121 122 REWIND( numnam_ice_cfg ) ! Namelist namicerun in configuration namelist : Parameters for ice 123 READ ( numnam_ice_cfg, namicerun, IOSTAT = ios, ERR = 902 ) 124 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicerun in configuration namelist', lwp ) 125 WRITE ( numoni, namicerun ) 117 126 ! 118 127 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.