Changeset 773 for branches/dev_001_GM/NEMO/TOP_SRC/TRP/trctrp.F90

Timestamp:

2007-12-17T17:55:32+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - small changes : compilation OK

File:

• branches/dev_001_GM/NEMO/TOP_SRC/TRP/trctrp.F90 (modified) (2 diffs)

branches/dev_001_GM/NEMO/TOP_SRC/TRP/trctrp.F90

@@ -15 +15 @@
    USE trc             ! ocean passive tracers variables 
    USE trctrp_lec      ! passive tracers transport parameters
+   USE prtctl_trc     ! Print control for debbuging
 
    USE trcbbl          ! bottom boundary layer               (trc_bbl routine)
@@ -67 +68 @@
       !!----------------------------------------------------------------------
       INTEGER, INTENT( in ) ::  kt  ! ocean time-step index
+      !!
+      CHARACTER (len=25) :: charout
       !! ---------------------------------------------------------------------