- Timestamp:
- 2017-12-19T09:26:25+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2017/dev_merge_2017/NEMOGCM/NEMO/LIM_SRC_3/icedyn.F90
r9076 r9124 72 72 !!-------------------------------------------------------------------- 73 73 ! 74 IF( nn_timing == 1) CALL timing_start('icedyn')74 IF( ln_timing ) CALL timing_start('icedyn') 75 75 ! 76 76 IF( kt == nit000 .AND. lwp ) THEN … … 123 123 END SELECT 124 124 ! 125 IF( nn_timing == 1) CALL timing_stop('icedyn')125 IF( ln_timing ) CALL timing_stop('icedyn') 126 126 ! 127 127 END SUBROUTINE ice_dyn 128 128 129 129 130 SUBROUTINE Hbig( phmax ) … … 171 172 END SUBROUTINE Hbig 172 173 174 173 175 SUBROUTINE Hpiling 174 176 !!------------------------------------------------------------------- … … 221 223 REWIND( numnam_ice_cfg ) ! Namelist namdyn in configuration namelist : Ice dynamics 222 224 READ ( numnam_ice_cfg, namdyn, IOSTAT = ios, ERR = 902 ) 223 902 IF( ios /=0 ) CALL ctl_nam ( ios , 'namdyn in configuration namelist', lwp )225 902 IF( ios > 0 ) CALL ctl_nam ( ios , 'namdyn in configuration namelist', lwp ) 224 226 IF(lwm) WRITE ( numoni, namdyn ) 225 227 !
Note: See TracChangeset
for help on using the changeset viewer.