Changeset 9261 for branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90
- Timestamp:
- 2018-01-18T14:59:11+01:00 (6 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/TRD/trdmxl_rst.F90
r9252 r9261 80 80 WRITE(numout,*) 81 81 ENDIF 82 IF(nn_timing == 3) CALL timing_start('rst_put')82 IF(nn_timing == 2) CALL timing_start('iom_rstput') 83 83 IF( ln_trdmxl_instant ) THEN 84 84 !-- Temperature … … 116 116 CALL iom_rstput( kt, nitrst, nummxlw, 'smltrd_atf_sumb' , smltrd_atf_sumb ) 117 117 ENDIF 118 IF(nn_timing == 3) CALL timing_stop('rst_put')118 IF(nn_timing == 2) CALL timing_stop('iom_rstput') 119 119 ! 120 120 IF( kt == nitrst ) THEN … … 160 160 161 161 CALL iom_open( TRIM(clpath)//TRIM(cn_trdrst_in), inum, kiolib = jlibalt ) 162 162 IF(nn_timing == 2) CALL timing_start('iom_rstget') 163 163 IF( ln_trdmxl_instant ) THEN 164 164 !-- Temperature … … 196 196 CALL iom_get( inum, jpdom_autoglo, 'smltrd_atf_sumb' , smltrd_atf_sumb) 197 197 ! 198 CALL iom_close( inum ) 199 ENDIF 198 ENDIF 199 IF(nn_timing == 2) CALL timing_stop('iom_rstget') 200 CALL iom_close( inum ) 200 201 ! 201 202 END SUBROUTINE trd_mxl_rst_read
Note: See TracChangeset
for help on using the changeset viewer.