Changeset 153 for trunk/NEMO/OPA_SRC

Timestamp:

2004-10-19T15:35:39+02:00 (20 years ago)

Author:

opalod

Message:

CL + CT: BUGFIX098: Add missing declaration for kt and initialization of ztrp in coupling mode (key_coupled)

File:

• trunk/NEMO/OPA_SRC/SBC/ocesbc.F90 (modified) (2 diffs)

trunk/NEMO/OPA_SRC/SBC/ocesbc.F90

@@ -79 +79 @@
       !!   2.0  !  02-12  (G. Madec)  F90: Free form and module
       !!----------------------------------------------------------------------
+      !! * Arguments
+      INTEGER, INTENT( in  ) ::   kt   ! ocean time step
+
       !! * Local declarations
       INTEGER ::   ji, jj                   ! dummy loop indices
-      REAL(wp) ::   ztx, ztaux, zty, ztauy, ztrp, zsrp
+      REAL(wp) ::   ztx, ztaux, zty, ztauy, ztrp
       REAL(wp) ::   ztdta, ztgel, zqrp
       !!----------------------------------------------------------------------
@@ -108 +111 @@
          ! Surface heat flux (W/m2)
          ! -----------------------
+         ztrp = 0.e0
 
          ! restoring heat flux