Changeset 776 for branches/dev_001_GM/NEMO/TOP_SRC/TRP/trcadv_smolar.F90

Timestamp:

2007-12-19T15:10:14+01:00 (16 years ago)

Author:

gm

Message:

dev_001_GM - passivetrc_substitute.h90 renamed top_substitute.h90 - compilation OK

File:

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

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

@@ -12 +12 @@
    !!                  FCT scheme
    !!----------------------------------------------------------------------
-   !! * Modules used
    USE oce_trc             ! ocean dynamics and active tracers variables
    USE trc                 ! ocean passive tracers variables
@@ -22 +21 @@
    PRIVATE
 
-   !! * Accessibility
    PUBLIC trc_adv_smolar    ! routine called by trcstp.F90
 
-   !! * Module variable
-   REAL(wp), DIMENSION(jpk) ::   &
-      rdttrc                     ! vertical profile of tracer time-step
+   REAL(wp), DIMENSION(jpk) ::   rdttrc       ! vertical profile of tracer time-step
  
    !! * Substitutions
-#  include "passivetrc_substitute.h90"
+#  include "top_substitute.h90"
    !!----------------------------------------------------------------------
    !!   TOP 1.0 , LOCEAN-IPSL (2005)