Changeset 4440 for branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

Timestamp:

2014-02-04T13:15:21+01:00 (10 years ago)

Author:

trackstand2

Message:

Changes to timing calls to better deal with IO-heavy bits

File:

• branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90 (modified) (7 diffs)

branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

@@ -51 +51 @@
    USE zpermute, ONLY : permute_z_last   ! Re-order a 3d array back to external (z-last) ordering 
    USE prtctl
+   USE timing
 
    IMPLICIT NONE
@@ -148 +149 @@
       END IF
       !
+      CALL timing_start('dia_wri') 
+      !
       ! Output the initial state and forcings
       IF( ninist == 1 ) THEN                       
@@ -228 +231 @@
          CALL iom_put( "v_heattr", z2d )                  !  heat transport in i-direction
       ENDIF
+      !
+      CALL timing_stop('dia_wri') 
       !
       IF( wrk_not_released(2, 1))THEN
@@ -270 +275 @@
       END IF
       !
+      CALL timing_start('dia_wri') 
+      !
       ! Output the initial state and forcings
       IF( ninist == 1 ) THEN                       
@@ -717 +724 @@
          CALL histclo( nid_W )
       ENDIF
+      !
+      CALL timing_stop('dia_wri') 
       !
       IF( wrk_not_released(2, 1))THEN
@@ -750 +759 @@
       REAL(wp) ::   zsto, zout, zmax, zjulian, zdt
       !!----------------------------------------------------------------------
+
+      CALL timing_start('dia_wri_state') 
 
       ! 0. Initialisation
@@ -854 +865 @@
       ENDIF
 #endif
+      CALL timing_stop('dia_wri_state') 
 
    END SUBROUTINE dia_wri_state