- Timestamp:
- 2017-12-23T13:27:17+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/OPA_SRC/SBC/sbcice_if.F90
r7646 r9168 17 17 USE sbc_oce ! surface boundary condition: ocean fields 18 18 #if defined key_lim3 19 USE ice , ONLY : a_i19 USE ice , ONLY : a_i 20 20 #else 21 USE sbc_ice , ONLY : a_i21 USE sbc_ice , ONLY : a_i 22 22 #endif 23 ! 24 USE in_out_manager ! I/O manager 25 USE iom ! I/O manager library 23 26 USE fldread ! read input field 24 USE iom ! I/O manager library25 USE in_out_manager ! I/O manager26 27 USE lib_mpp ! MPP library 27 28 USE lib_fortran ! Fortran utilities (allows no signed zero when 'key_nosignedzero' defined) … … 75 76 REWIND( numnam_ref ) ! Namelist namsbc_iif in reference namelist : Ice if file 76 77 READ ( numnam_ref, namsbc_iif, IOSTAT = ios, ERR = 901) 77 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwp )78 901 IF( ios /= 0 ) CALL ctl_nam ( ios , 'namsbc_iif in reference namelist', lwp ) 78 79 79 80 REWIND( numnam_cfg ) ! Namelist Namelist namsbc_iif in configuration namelist : Ice if file 80 81 READ ( numnam_cfg, namsbc_iif, IOSTAT = ios, ERR = 902 ) 81 902 IF( ios /= 0 )CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp )82 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namsbc_iif in configuration namelist', lwp ) 82 83 IF(lwm) WRITE ( numond, namsbc_iif ) 83 84
Note: See TracChangeset
for help on using the changeset viewer.