Changeset 1801 for trunk/NEMO/TOP_SRC/trcdta.F90

Timestamp:

2010-01-22T10:36:07+01:00 (14 years ago)

Author:

cetlod

Message:

Reorganisation of restart part of TOP component, see ticket:644

File:

• trunk/NEMO/TOP_SRC/trcdta.F90 (modified) (3 diffs)

trunk/NEMO/TOP_SRC/trcdta.F90

@@ -25 +25 @@
    PUBLIC trc_dta   ! called in trcini.F90 and trcdmp.F90
 
+   LOGICAL , PUBLIC, PARAMETER ::   lk_dtatrc = .TRUE.   !: temperature data flag
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk,jptra) ::   trdta   !: tracer data at given time-step
 
@@ -82 +83 @@
             ENDIF
             ! Initialization
-            iman = jpmois
+            iman = jpmonth
             i15  = nday / 16
             imois = nmonth + i15 -1
@@ -206 +207 @@
    !!   Dummy module                              NO 3D passive tracer data
    !!----------------------------------------------------------------------
+   LOGICAL , PUBLIC, PARAMETER ::   lk_dtatrc = .FALSE.   !: temperature data flag
 CONTAINS
    SUBROUTINE trc_dta( kt )        ! Empty routine