Changeset 3294 for trunk/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

Timestamp:

2012-01-28T17:44:18+01:00 (12 years ago)

Author:

rblod

Message:

Merge of 3.4beta into the trunk

File:

• trunk/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90 (modified) (5 diffs)

trunk/NEMOGCM/NEMO/OPA_SRC/DOM/daymod.F90

@@ -34 +34 @@
    USE restart         ! 
    USE trc_oce, ONLY : lk_offline ! offline flag
+   USE timing          ! Timing
 
    IMPLICIT NONE
@@ -70 +71 @@
       REAL(wp) ::   zjul
       !!----------------------------------------------------------------------
-
+      !
       ! all calendar staff is based on the fact that MOD( rday, rdttra(1) ) == 0
       IF( MOD( rday     , rdttra(1) ) /= 0. )   CALL ctl_stop( 'the time step must devide the number of second of in a day' )
@@ -127 +128 @@
       ! call day to set the calendar parameters at the begining of the current simulaton. needed by iom_init
       CALL day( nit000 )
-
+      !
    END SUBROUTINE day_init
 
@@ -204 +205 @@
       REAL(wp)           ::   zprec      ! fraction of day corresponding to 0.1 second
       !!----------------------------------------------------------------------
+      !
+      IF( nn_timing == 1 )  CALL timing_start('day')
+      !
       zprec = 0.1 / rday
       !                                                 ! New time-step
@@ -255 +259 @@
       IF( .NOT. lk_offline ) CALL rst_opn( kt )               ! Open the restart file if needed and control lrst_oce
       IF( lrst_oce         ) CALL day_rst( kt, 'WRITE' )      ! write day restart information
+      !
+      IF( nn_timing == 1 )  CALL timing_stop('day')
       !
    END SUBROUTINE day