Changeset 2259 for branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

Timestamp:

2010-10-13T19:00:25+02:00 (14 years ago)

Author:

cetlod

Message:

small bug correction

File:

• branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90 (modified) (2 diffs)

branches/nemo_v3_3_beta/NEMOGCM/NEMO/OPA_SRC/TRA/trasbc.F90

@@ -107 +107 @@
       INTEGER, INTENT(in) ::   kt   ! ocean time-step index
       !!
-      INTEGER  ::   ji, jj, jk           ! dummy loop indices  
-      REAL(wp) ::   zfact, z1_e3t, zsrau,zdep
+      INTEGER  ::   ji, jj, jk, jn           ! dummy loop indices  
+      REAL(wp) ::   zfact, z1_e3t, zsrau, zdep
       REAL(wp), DIMENSION(:,:,:), ALLOCATABLE ::  ztrdt, ztrds
       !!----------------------------------------------------------------------
@@ -148 +148 @@
          !                                         ! ----------------------
          zfact = 0.5e0
-         sbc_tsc_b(:,:,:) = sbc_tsc(:,:)
+         sbc_tsc_b(:,:,:) = sbc_tsc(:,:,:)
       ENDIF
       !                                          Compute now sbc tracer content fields