Changeset 4110 for branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooomod.F90

Timestamp:

2013-10-22T22:53:28+02:00 (11 years ago)

Author:

andrewryan

Message:

Added headers to each module in OOO_SRC and corrected positions of IMPLICIT NONE and PUBLIC subroutines.

File:

• branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooomod.F90 (modified) (6 diffs)

branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooomod.F90

@@ -1 +1 @@
 MODULE ooomod
-   !!----------------------------------------------------------------------
+   !!======================================================================
    !!                    ***  MODULE ooo ***
    !! ** Purpose : Run NEMO observation operator in offline mode
-   !!----------------------------------------------------------------------
+   !!======================================================================
    !! NEMO modules
    USE diaobs
@@ -13 +13 @@
    USE ooo_data
    USE ooo_read
+
+   IMPLICIT NONE
+   PRIVATE
+
+   PUBLIC offline_obs_oper
+
    CONTAINS
       SUBROUTINE ooo_init
@@ -21 +27 @@
          !!
          !!----------------------------------------------------------------------
-         IMPLICIT NONE
          !! Initialise NEMO
          CALL nemo_init
@@ -36 +41 @@
          !!
          !!----------------------------------------------------------------------
-         IMPLICIT NONE
          !! Initialise offline obs_oper
          CALL ooo_init
@@ -65 +69 @@
          !!             2. Call dia_obs at appropriate time steps
          !!----------------------------------------------------------------------
-         IMPLICIT NONE
          INTEGER :: istp ! time step index
          !! Loop over entire run
@@ -92 +95 @@
          !!
          !!----------------------------------------------------------------------
-         IMPLICIT NONE
          IF(lk_mpp) CALL mppstop  ! end mpp communications
       END SUBROUTINE ooo_stop