Changeset 5282 for branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

Timestamp:

2015-05-18T17:19:50+02:00 (9 years ago)

Author:

diovino

Message:

Dev. branch CMCC4_simplification ticket #1456

File:

• branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90 (modified) (1 diff)

branches/2015/dev_r5056_CMCC4_simplification/NEMOGCM/NEMO/TOP_SRC/PISCES/trcini_pisces.F90

@@ -107 +107 @@
       CALL p4z_sms_init       !  Maint routine
       !                                            ! Time-step
-      rfact   = rdttrc(1)                          ! ---------
+      rfact   = rdttrc                          ! ---------
       rfactr  = 1. / rfact
       rfact2  = rfact / FLOAT( nrdttrc )
       rfact2r = 1. / rfact2
 
-      IF(lwp) WRITE(numout,*) '    Passive Tracer  time step    rfact  = ', rfact, ' rdt = ', rdttra(1)
+      IF(lwp) WRITE(numout,*) '    Passive Tracer  time step    rfact  = ', rfact, ' rdt = ', rdt
       IF(lwp) write(numout,*) '    PISCES  Biology time step    rfact2 = ', rfact2