- Timestamp:
- 2013-11-04T12:51:55+01:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2013/dev_LOCEAN_2013/NEMOGCM/NEMO/LIM_SRC_2/limtrp_2.F90
r3764 r4147 38 38 PUBLIC lim_trp_2 ! called by sbc_ice_lim_2 39 39 40 REAL(wp), PUBLIC :: bound = 0.e0!: boundary condit. (0.0 no-slip, 1.0 free-slip)40 REAL(wp), PUBLIC :: bound !: boundary condit. (0.0 no-slip, 1.0 free-slip) 41 41 42 42 REAL(wp) :: epsi06 = 1.e-06 ! constant values … … 297 297 !! ** input : Namelist namicetrp 298 298 !!------------------------------------------------------------------- 299 INTEGER :: ios ! Local integer output status for namelist read 299 300 NAMELIST/namicetrp/ bound 300 301 !!------------------------------------------------------------------- 301 ! 302 REWIND ( numnam_ice ) ! Read Namelist namicetrp 303 READ ( numnam_ice , namicetrp ) 302 303 REWIND( numnam_ice_ref ) ! Namelist namicetrp in reference namelist : Ice advection 304 READ ( numnam_ice_ref, namicetrp, IOSTAT = ios, ERR = 901) 305 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in reference namelist', lwp ) 306 307 REWIND( numnam_ice_cfg ) ! Namelist namicetrp in configuration namelist : Ice advection 308 READ ( numnam_ice_cfg, namicetrp, IOSTAT = ios, ERR = 902 ) 309 902 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namicetrp in configuration namelist', lwp ) 310 WRITE ( numoni, namicetrp ) 311 304 312 IF(lwp) THEN 305 313 WRITE(numout,*)
Note: See TracChangeset
for help on using the changeset viewer.