Changeset 4440


Ignore:
Timestamp:
2014-02-04T13:15:21+01:00 (7 years ago)
Author:
trackstand2
Message:

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

Location:
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/DIA/diawri.F90

    r3432 r4440  
    5151   USE zpermute, ONLY : permute_z_last   ! Re-order a 3d array back to external (z-last) ordering  
    5252   USE prtctl 
     53   USE timing 
    5354 
    5455   IMPLICIT NONE 
     
    148149      END IF 
    149150      ! 
     151      CALL timing_start('dia_wri')  
     152      ! 
    150153      ! Output the initial state and forcings 
    151154      IF( ninist == 1 ) THEN                        
     
    228231         CALL iom_put( "v_heattr", z2d )                  !  heat transport in i-direction 
    229232      ENDIF 
     233      ! 
     234      CALL timing_stop('dia_wri')  
    230235      ! 
    231236      IF( wrk_not_released(2, 1))THEN 
     
    270275      END IF 
    271276      ! 
     277      CALL timing_start('dia_wri')  
     278      ! 
    272279      ! Output the initial state and forcings 
    273280      IF( ninist == 1 ) THEN                        
     
    717724         CALL histclo( nid_W ) 
    718725      ENDIF 
     726      ! 
     727      CALL timing_stop('dia_wri')  
    719728      ! 
    720729      IF( wrk_not_released(2, 1))THEN 
     
    750759      REAL(wp) ::   zsto, zout, zmax, zjulian, zdt 
    751760      !!---------------------------------------------------------------------- 
     761 
     762      CALL timing_start('dia_wri_state')  
    752763 
    753764      ! 0. Initialisation 
     
    854865      ENDIF 
    855866#endif 
     867      CALL timing_stop('dia_wri_state')  
    856868 
    857869   END SUBROUTINE dia_wri_state 
  • branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90

    r4409 r4440  
    326326      ENDIF 
    327327      ! 
    328       CALL timing_stop('iom_open') 
     328      CALL timing_stop('iom_open','section') 
    329329 
    330330   END SUBROUTINE iom_open 
     
    380380      ENDIF 
    381381      !     
    382       CALL timing_stop('iom_close') 
     382      CALL timing_stop('iom_close','section') 
    383383 
    384384   END SUBROUTINE iom_close 
     
    452452      ENDIF 
    453453      ! 
    454       CALL timing_stop('iom_varid') 
     454      CALL timing_stop('iom_varid','section') 
    455455      ! 
    456456   END FUNCTION iom_varid 
     
    479479            END SELECT 
    480480         ENDIF 
    481          CALL timing_stop('iom_g0d') 
     481         CALL timing_stop('iom_g0d','section') 
    482482      ENDIF 
    483483   END SUBROUTINE iom_g0d 
     
    893893      ENDIF 
    894894      ! 
    895       CALL timing_stop('iom_get_123d') 
     895      CALL timing_stop('iom_get_123d','section') 
    896896 
    897897   END SUBROUTINE iom_get_123d 
     
    960960      ENDIF 
    961961      ! 
    962       CALL timing_stop('iom_gettime') 
     962      CALL timing_stop('iom_gettime','section') 
    963963      ! 
    964964   END SUBROUTINE iom_gettime 
Note: See TracChangeset for help on using the changeset viewer.