Changeset 3383 for branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbstp.F90

Timestamp:

2012-05-04T16:06:37+02:00 (12 years ago)

Author:

sga

Message:

NEMO branch dev_r3337_NOCS10_ICB: rationalise date calculation (which also helps with key_agrif problems)

File:

• branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbstp.F90 (modified) (2 diffs)

branches/2012/dev_r3337_NOCS10_ICB/NEMOGCM/NEMO/OPA_SRC/ICB/icbstp.F90

@@ -59 +59 @@
       INTEGER, INTENT(in) ::   kt   ! time step index
       !
-      INTEGER ::   iyr, imon, iday, ihr, imin, isec        ! local integers
       LOGICAL ::   ll_sample_traj, ll_budget, ll_verbose   ! local logical
       !!----------------------------------------------------------------------
@@ -79 +78 @@
       CALL icb_dia_step()
 
-      ! Manage time
-      ! Convert nemo time variables from dom_oce into local versions
-      ! Note that yearday function assumes 365 day year!!
-      iyr = nyear
-      imon = nmonth
-      iday = nday
-      ihr = INT(nsec_day/3600)
-      imin = INT((nsec_day-ihr*3600)/60)
-      isec = nsec_day - ihr*3600 - imin*60
-      current_year    = iyr
-      current_yearday = icb_utl_yearday(imon, iday, ihr, imin, isec)
-
       ll_verbose = .FALSE.
       IF( nn_verbose_write > 0 .AND. &
           MOD(kt-1,nn_verbose_write ) == 0 )   ll_verbose = nn_verbose_level >= 0
-      IF( ll_verbose ) WRITE(numicb,9100) iyr, imon, iday, ihr, imin, isec, &
-                                        current_year, current_yearday
- 9100 FORMAT('y,m,d=',3i5,' h,m,s=',3i5,' yr,yrdy=',i5,f8.3)
+
+      ! write out time
+      IF( ll_verbose ) WRITE(numicb,9100) nktberg, ndastp, nsec_day
+ 9100 FORMAT('kt= ',i8, ' day= ',i8,' secs=',i8)
 
       ! copy nemo forcing arrays into iceberg versions with extra halo