Changeset 4110 for branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_utils.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/ooo_utils.F90 (modified) (5 diffs)

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

@@ -1 +1 @@
 MODULE ooo_utils
+   !! =================================================================
+   !!                    *** MODULE ooo_utils ***
+   !! =================================================================
+
    USE obs_utils, ONLY: chkerr
    USE obs_const, ONLY: obfillflt
@@ -5 +9 @@
    USE obs_types, ONLY: cwmonam1770
    USE obs_sla, ONLY: nslasets
+
+   IMPLICIT NONE
 
    ! Define double precision obfillflt
@@ -12 +18 @@
 
    SUBROUTINE yyyymmdd_to_ref_date(indate, intime, outstring)
-      IMPLICIT NONE
       !----------------------------------------
       ! Routine to create reference date string
@@ -40 +45 @@
 
    SUBROUTINE date_format(date_str)
-      IMPLICIT NONE
       !---------------------------------------
       ! Routine to create creation date string
@@ -64 +68 @@
 
    SUBROUTINE inst_converter(wmo_inst_list, nprofs, obs_names)
-      IMPLICIT NONE
       !---------------------------------------
       ! Routine to convert WMO_INST_TYPE to