Changeset 5434

Timestamp:

2015-06-18T11:05:30+02:00 (9 years ago)

Author:

cetlod

Message:

fix to add undefined subroutines, see ticket #1541

Location:

trunk/NEMOGCM/NEMO/TOP_SRC

Files:

• C14b/trcice_c14b.F90 (modified) (4 diffs)
• CFC/trcice_cfc.F90 (modified) (4 diffs)
• MY_TRC/trcice_my_trc.F90 (modified) (4 diffs)

trunk/NEMOGCM/NEMO/TOP_SRC/C14b/trcice_c14b.F90

@@ -16 +16 @@
    PRIVATE
 
-   PUBLIC   trc_ice_c14b       ! called by trcice.F90 module
+   PUBLIC   trc_ice_ini_c14b       ! called by trcice.F90 module
 
    !!----------------------------------------------------------------------
@@ -25 +25 @@
 CONTAINS
 
-   SUBROUTINE trc_ice_c14b
+   SUBROUTINE trc_ice_ini_c14b
       !!----------------------------------------------------------------------
       !!                     ***  trc_ice_c14b  ***
@@ -32 +32 @@
       !
       !
-   END SUBROUTINE trc_ice_c14b
+   END SUBROUTINE trc_ice_ini_c14b
 
 
@@ -40 +40 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE trc_ice_c14b             ! Empty routine
-   END SUBROUTINE trc_ice_c14b
+   SUBROUTINE trc_ice_ini_c14b             ! Empty routine
+   END SUBROUTINE trc_ice_ini_c14b
 #endif
 

trunk/NEMOGCM/NEMO/TOP_SRC/CFC/trcice_cfc.F90

@@ -19 +19 @@
    PRIVATE
 
-   PUBLIC   trc_ice_cfc       ! called by trcice.F90 module
+   PUBLIC   trc_ice_ini_cfc       ! called by trcice.F90 module
 
    !!----------------------------------------------------------------------
@@ -28 +28 @@
 CONTAINS
 
-   SUBROUTINE trc_ice_cfc
+   SUBROUTINE trc_ice_ini_cfc
       !!----------------------------------------------------------------------
       !!                     ***  trc_ice_cfc  ***
@@ -38 +38 @@
       !
       !
-   END SUBROUTINE trc_ice_cfc
+   END SUBROUTINE trc_ice_ini_cfc
 
 
@@ -46 +46 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE trc_ice_cfc             ! Empty routine
-   END SUBROUTINE trc_ice_cfc
+   SUBROUTINE trc_ice_ini_cfc             ! Empty routine
+   END SUBROUTINE trc_ice_ini_cfc
 #endif
 

trunk/NEMOGCM/NEMO/TOP_SRC/MY_TRC/trcice_my_trc.F90

@@ -16 +16 @@
    PRIVATE
 
-   PUBLIC   trc_ice_my_trc       ! called by trcice.F90 module
+   PUBLIC   trc_ice_ini_my_trc       ! called by trcice.F90 module
 
    !!----------------------------------------------------------------------
@@ -25 +25 @@
 CONTAINS
 
-   SUBROUTINE trc_ice_my_trc
+   SUBROUTINE trc_ice_ini_my_trc
       !!----------------------------------------------------------------------
       !!                     ***  trc_ice_my_trc  ***
@@ -32 +32 @@
       !
       !
-   END SUBROUTINE trc_ice_my_trc
+   END SUBROUTINE trc_ice_ini_my_trc
 
 #else
@@ -39 +39 @@
    !!----------------------------------------------------------------------
 CONTAINS
-   SUBROUTINE trc_ice_my_trc             ! Empty routine
-   END SUBROUTINE trc_ice_my_trc
+   SUBROUTINE trc_ice_ini_my_trc             ! Empty routine
+   END SUBROUTINE trc_ice_ini_my_trc
 #endif
 
    !!======================================================================
-END MODULE trcice_my_trc
+END MODULE trcice_ini_my_trc