- 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/OPA_SRC/C1D/domc1d.F90
r7646 r9124 18 18 USE in_out_manager ! I/O manager (ctmp1) 19 19 USE wrk_nemo ! Memory allocation 20 USE timing ! Timing21 20 22 21 IMPLICIT NONE … … 68 67 !!---------------------------------------------------------------------- 69 68 70 IF( nn_timing == 1 ) CALL timing_start('dom_c1d')71 72 69 REWIND( numnam_ref ) ! Namelist namdom in reference namelist : space & time domain (bathymetry, mesh, timestep) 73 70 READ ( numnam_ref, namdom, IOSTAT = ios, ERR = 901 ) … … 198 195 ENDIF 199 196 ! 200 IF( nn_timing == 1 ) CALL timing_stop('dom_c1d')201 !202 197 END SUBROUTINE dom_c1d 203 198
Note: See TracChangeset
for help on using the changeset viewer.