Changeset 9317

Timestamp:

2018-02-09T14:26:48+01:00 (7 years ago)

Author:

andmirek

Message:

#1978 fix in restart read timing (from review)

File:

• branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90 (modified) (1 diff)

branches/UKMO/dev_r7750_GO6_package_oasis_timers/NEMOGCM/NEMO/OPA_SRC/IOM/restart.F90

@@ -303 +303 @@
          antarctica_icesheet_timelapsed = 0.0
       ENDIF
-      IF(nn_timing == 2)  CALL timing_start('iom_rstget')
+      IF(nn_timing == 2)  CALL timing_stop('iom_rstget')
       IF( neuler == 0 ) THEN                                  ! Euler restart (neuler=0)
          tsb  (:,:,:,:) = tsn  (:,:,:,:)                             ! all before fields set to now values