- Timestamp:
- 2014-02-04T13:15:21+01:00 (10 years ago)
- 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 51 51 USE zpermute, ONLY : permute_z_last ! Re-order a 3d array back to external (z-last) ordering 52 52 USE prtctl 53 USE timing 53 54 54 55 IMPLICIT NONE … … 148 149 END IF 149 150 ! 151 CALL timing_start('dia_wri') 152 ! 150 153 ! Output the initial state and forcings 151 154 IF( ninist == 1 ) THEN … … 228 231 CALL iom_put( "v_heattr", z2d ) ! heat transport in i-direction 229 232 ENDIF 233 ! 234 CALL timing_stop('dia_wri') 230 235 ! 231 236 IF( wrk_not_released(2, 1))THEN … … 270 275 END IF 271 276 ! 277 CALL timing_start('dia_wri') 278 ! 272 279 ! Output the initial state and forcings 273 280 IF( ninist == 1 ) THEN … … 717 724 CALL histclo( nid_W ) 718 725 ENDIF 726 ! 727 CALL timing_stop('dia_wri') 719 728 ! 720 729 IF( wrk_not_released(2, 1))THEN … … 750 759 REAL(wp) :: zsto, zout, zmax, zjulian, zdt 751 760 !!---------------------------------------------------------------------- 761 762 CALL timing_start('dia_wri_state') 752 763 753 764 ! 0. Initialisation … … 854 865 ENDIF 855 866 #endif 867 CALL timing_stop('dia_wri_state') 856 868 857 869 END SUBROUTINE dia_wri_state -
branches/2011/DEV_r2739_STFC_dCSE/NEMOGCM/NEMO/OPA_SRC/IOM/iom.F90
r4409 r4440 326 326 ENDIF 327 327 ! 328 CALL timing_stop('iom_open' )328 CALL timing_stop('iom_open','section') 329 329 330 330 END SUBROUTINE iom_open … … 380 380 ENDIF 381 381 ! 382 CALL timing_stop('iom_close' )382 CALL timing_stop('iom_close','section') 383 383 384 384 END SUBROUTINE iom_close … … 452 452 ENDIF 453 453 ! 454 CALL timing_stop('iom_varid' )454 CALL timing_stop('iom_varid','section') 455 455 ! 456 456 END FUNCTION iom_varid … … 479 479 END SELECT 480 480 ENDIF 481 CALL timing_stop('iom_g0d' )481 CALL timing_stop('iom_g0d','section') 482 482 ENDIF 483 483 END SUBROUTINE iom_g0d … … 893 893 ENDIF 894 894 ! 895 CALL timing_stop('iom_get_123d' )895 CALL timing_stop('iom_get_123d','section') 896 896 897 897 END SUBROUTINE iom_get_123d … … 960 960 ENDIF 961 961 ! 962 CALL timing_stop('iom_gettime' )962 CALL timing_stop('iom_gettime','section') 963 963 ! 964 964 END SUBROUTINE iom_gettime
Note: See TracChangeset
for help on using the changeset viewer.