Changeset 1011 for trunk/NEMO/TOP_SRC/trcdta.F90

Timestamp:

2008-05-30T11:57:12+02:00 (16 years ago)

Author:

cetlod

Message:

re-organization of TOP initialization and outputs phases see ticket 171

File:

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

trunk/NEMO/TOP_SRC/trcdta.F90

@@ -23 +23 @@
    PRIVATE
 
-   PUBLIC dta_trc   ! called in trcdtr.F90 and trcdmp.F90
+   PUBLIC trc_dta   ! called in trcdtr.F90 and trcdmp.F90
 
    REAL(wp), PUBLIC, DIMENSION(jpi,jpj,jpk,jptra) ::   trdta   !: tracer data at given time-step
@@ -46 +46 @@
    !!----------------------------------------------------------------------
    
-   SUBROUTINE dta_trc( kt )
+   SUBROUTINE trc_dta( kt )
       !!----------------------------------------------------------------------
-      !!                   ***  ROUTINE dta_trc  ***
+      !!                   ***  ROUTINE trc_dta  ***
       !!
       !! ** Purpose :   Reads passive tracer data (Levitus monthly data)
@@ -198 +198 @@
       END DO
       !
-   END SUBROUTINE dta_trc
+   END SUBROUTINE trc_dta
 
 #else
@@ -205 +205 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE dta_trc( kt )        ! Empty routine
-      WRITE(*,*) 'dta_trc: You should not have seen this print! error?', kt
-   END SUBROUTINE dta_trc
+   SUBROUTINE trc_dta( kt )        ! Empty routine
+      WRITE(*,*) 'trc_dta: You should not have seen this print! error?', kt
+   END SUBROUTINE trc_dta
 #endif