Changeset 2007 for branches/DEV_r1879_FCM/NEMOGCM/NEMO/TOP_SRC/trcdta.F90

Timestamp:

2010-07-13T17:14:39+02:00 (14 years ago)

Author:

smasson

Message:

update branches/DEV_r1879_FCM/NEMOGCM/NEMO with tags/nemo_v3_2_1/NEMO

File:

• branches/DEV_r1879_FCM/NEMOGCM/NEMO/TOP_SRC/trcdta.F90 (modified) (5 diffs)

branches/DEV_r1879_FCM/NEMOGCM/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
 
@@ -62 +63 @@
       !!
       CHARACTER (len=39) ::   clname(jptra)
-      INTEGER, PARAMETER ::   jpmois  = 12        ! number of months
+      INTEGER, PARAMETER ::   &
+         jpmonth = 12    ! number of months
       INTEGER ::   ji, jj, jn, jl 
       INTEGER ::   imois, iman, i15, ik  ! temporary integers 
@@ -81 +83 @@
             ENDIF
             ! Initialization
-            iman = jpmois
+            iman = jpmonth
             i15  = nday / 16
             imois = nmonth + i15 -1
@@ -188 +190 @@
             ! Read init file only
             IF( kt == nittrc000  ) THEN
+               ntrc1(jn) = 1
                CALL iom_get ( numtr(jn), jpdom_data, ctrcnm(jn), trdta(:,:,:,jn), ntrc1(jn) )
                trdta(:,:,:,jn) = trdta(:,:,:,jn) * tmask(:,:,:)
@@ -204 +207 @@
    !!   Dummy module                              NO 3D passive tracer data
    !!----------------------------------------------------------------------
+   LOGICAL , PUBLIC, PARAMETER ::   lk_dtatrc = .FALSE.   !: temperature data flag
 CONTAINS
    SUBROUTINE trc_dta( kt )        ! Empty routine