Changeset 4106 for branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_read.F90

Timestamp:

2013-10-22T17:30:08+02:00 (11 years ago)

Author:

andrewryan

Message:

Applied naming convention to eliminate confusion with OFF_SRC, included relevant OPA_SRC files in OOO_SRC directory.

File:

• branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_read.F90 (moved) (moved from branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/off_read.F90) (6 diffs)

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

@@ -1 +1 @@
 
-MODULE off_read
+MODULE ooo_read
    !!======================================================================
-   !!                      *** MODULE off_read ***
+   !!                      *** MODULE ooo_read ***
    !! Read routines : I/O for offline obs_oper
    !!======================================================================
@@ -16 +16 @@
 USE obs_fbm, ONLY: fbimdi, fbrmdi, fbsp, fbdp
 
-USE off_data
+USE ooo_data
 !! * Routine accessibility
 PRIVATE
 
-PUBLIC off_rea_dri
+PUBLIC ooo_rea_dri
 
 CONTAINS
-   SUBROUTINE off_rea_dri(kfile)
+   SUBROUTINE ooo_rea_dri(kfile)
       IMPLICIT NONE
       !!------------------------------------------------------------------------
-      !!             *** off_rea_dri ***
+      !!             *** ooo_rea_dri ***
       !!
       !! Purpose : To choose appropriate read method
@@ -56 +56 @@
          & (TRIM(cmatchname) == 'best_estimate').OR. &
          & (TRIM(cmatchname) == '') ) THEN
-         CALL off_read_file(TRIM(cdfilename), kindex)
-         CALL off_read_juld(TRIM(cdfilename), kindex, cl4_modjuld)
+         CALL ooo_read_file(TRIM(cdfilename), kindex)
+         CALL ooo_read_juld(TRIM(cdfilename), kindex, cl4_modjuld)
       ELSE IF (TRIM(cmatchname) == 'climatology') THEN
          WRITE(numout,*) 'Interpolating climatologies'
       ELSE IF (TRIM(cmatchname) == 'altimeter') THEN
-         CALL off_read_altbias(TRIM(cdfilename))
-         CALL off_read_juld(TRIM(cdfilename), kindex, cl4_modjuld)
+         CALL ooo_read_altbias(TRIM(cdfilename))
+         CALL ooo_read_juld(TRIM(cdfilename), kindex, cl4_modjuld)
       END IF
 
-   END SUBROUTINE off_rea_dri
-
-   SUBROUTINE off_read_altbias(filename)
+   END SUBROUTINE ooo_rea_dri
+
+   SUBROUTINE ooo_read_altbias(filename)
       IMPLICIT NONE
       !!------------------------------------------------------------------------
-      !!                      *** off_read_altbias ***
+      !!                      *** ooo_read_altbias ***
       !!
       !! Purpose : To read altimeter bias and set tn,sn to missing values
@@ -140 +140 @@
       END IF
    
-   END SUBROUTINE off_read_altbias
-
-   SUBROUTINE off_read_file(filename, ifcst)
+   END SUBROUTINE ooo_read_altbias
+
+   SUBROUTINE ooo_read_file(filename, ifcst)
       IMPLICIT NONE
       !!------------------------------------------------------------------------
-      !!             *** off_read_file ***
+      !!             *** ooo_read_file ***
       !!
       !! Purpose : To fill tn and sn with dailymean field from netcdf files
@@ -268 +268 @@
          istat = nf90_close(ncid)
       END IF
-   END SUBROUTINE off_read_file
-
-   SUBROUTINE off_read_juld(filename, ifcst, julian)
+   END SUBROUTINE ooo_read_file
+
+   SUBROUTINE ooo_read_juld(filename, ifcst, julian)
       USE calendar
       IMPLICIT NONE
       !!--------------------------------------------------------------------
-      !!                 *** off_read_juld ***
+      !!                 *** ooo_read_juld ***
       !!
       !!   Purpose : To read model julian day information from file
@@ -346 +346 @@
       DEALLOCATE(r_sec)
       
-   END SUBROUTINE off_read_juld
-
-END MODULE off_read 
-
+   END SUBROUTINE ooo_read_juld
+
+END MODULE ooo_read 
+