- 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_3/limistate.F90
r3625 r3875 536 536 !! ** input : namelist namiceini 537 537 !!----------------------------------------------------------------------------- 538 INTEGER :: ios ! Local integer output status for namelist read 538 539 NAMELIST/namiceini/ ttest, hninn, hginn_u, aginn_u, hginn_d, aginn_d, hnins, & 539 540 & hgins_u, agins_u, hgins_d, agins_d, sinn, sins 540 541 !!----------------------------------------------------------------------------- 541 542 ! 542 REWIND ( numnam_ice ) ! Read Namelist namiceini 543 READ ( numnam_ice , namiceini ) 543 REWIND( numnam_ice_ref ) ! Namelist namiceini in reference namelist : Ice initial state 544 READ ( numnam_ice_ref, namiceini, IOSTAT = ios, ERR = 901) 545 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in reference namelist', lwp ) 546 547 REWIND( numnam_ice_cfg ) ! Namelist namiceini in configuration namelist : Ice initial state 548 READ ( numnam_ice_cfg, namiceini, IOSTAT = ios, ERR = 902 ) 549 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namiceini in configuration namelist', lwp ) 550 WRITE ( numoni, namiceini ) 544 551 ! 545 552 IF(lwp) THEN ! control print
Note: See TracChangeset
for help on using the changeset viewer.