Changeset 3875 for branches/2013/dev_r3853_CNRS9_ConfSetting/NEMOGCM/NEMO/OPA_SRC/SBC/sbcblk_mfs.F90
- 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/OPA_SRC/SBC/sbcblk_mfs.F90
r3625 r3875 104 104 INTEGER :: ifpr ! dummy loop indice 105 105 INTEGER :: jj,ji ! dummy loop arguments 106 INTEGER :: ios ! Local integer output status for namelist read 106 107 REAL(wp) :: act_hour 107 108 !!-------------------------------------------------------------------- … … 147 148 sn_prec = FLD_N( 'precip_cmap' , -1 , 'precip' , .true. , .true. , 'yearly' , '' , '' ) 148 149 ! 149 REWIND( numnam ) ! ... read in namlist namsbc_mfs 150 READ ( numnam, namsbc_mfs ) 150 151 REWIND( numnam_ref ) ! Namelist namsbc_msf in reference namelist : MFS files 152 READ ( numnam_ref, namsbc_mfs, IOSTAT = ios, ERR = 901) 153 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in reference namelist', lwp ) 154 155 REWIND( numnam_cfg ) ! Namelist namsbc_msf in configuration namelist : MFS files 156 READ ( numnam_cfg, namsbc_mfs, IOSTAT = ios, ERR = 902 ) 157 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_mfs in configuration namelist', lwp ) 158 WRITE ( numond, namsbc_mfs ) 151 159 ! 152 160 ! store namelist information in an array
Note: See TracChangeset
for help on using the changeset viewer.