- 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/sbcice_if.F90
r3625 r3875 59 59 INTEGER :: ji, jj ! dummy loop indices 60 60 INTEGER :: ierror ! return error code 61 INTEGER :: ios ! Local integer output status for namelist read 61 62 REAL(wp) :: ztrp, zsice, zt_fzp, zfr_obs 62 63 REAL(wp) :: zqri, zqrj, zqrp, zqi … … 76 77 sn_ice = FLD_N('ice_cover', -1 , 'ice_cov' , .true. , .true. , 'yearly' , '' , '' ) 77 78 78 REWIND ( numnam ) ! ... read in namlist namiif 79 READ ( numnam, namsbc_iif ) 79 REWIND( numnam_ref ) ! Namelist namsbc_iif in reference namelist : Ice if file 80 READ ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 81 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwp ) 82 83 REWIND( numnam_cfg ) ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file 84 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 85 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 86 WRITE ( numond, namsbc_iif ) 80 87 81 88 ALLOCATE( sf_ice(1), STAT=ierror )
Note: See TracChangeset
for help on using the changeset viewer.