Changeset 1796

Timestamp:

2010-01-18T15:28:30+01:00 (14 years ago)

Author:

cetlod

Message:

correction of trcdta.F90 routine, see ticket:639

File:

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

trunk/NEMO/TOP_SRC/trcdta.F90

@@ -62 +62 @@
       !!
       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 
@@ -188 +189 @@
             ! 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(:,:,:)