Changeset 4106 for branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/ooo_write.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_write.F90 (moved) (moved from branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/off_write.F90) (12 diffs)

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

@@ -1 @@
-MODULE off_write
+MODULE ooo_write
    !!======================================================================
-   !!                       ***  MODULE off_write  ***
+   !!                       ***  MODULE ooo_write  ***
    !!======================================================================
    USE netcdf
    USE obs_utils, ONLY: chkerr
-   USE off_netcdf, ONLY: date_format, inst_converter, yyyymmdd_to_ref_date
-   USE off_data
+   USE ooo_netcdf, ONLY: date_format, inst_converter, yyyymmdd_to_ref_date
+   USE ooo_data
    IMPLICIT NONE
    PRIVATE
 
-   PUBLIC off_wri_init
-   PUBLIC off_wri_default
-   PUBLIC off_wri_extra
+   PUBLIC ooo_wri_init
+   PUBLIC ooo_wri_default
+   PUBLIC ooo_wri_extra
 
    ! Type kinds for class 4 data.
@@ -22 +22 @@
    REAL(clsp), PARAMETER :: clrmdi =  99999   !: Reals
 
-   INTERFACE off_wri_extra
-      MODULE PROCEDURE off_wri_extra_3d_index, off_wri_extra_4d, off_wri_extra_4d_index
+   INTERFACE ooo_wri_extra
+      MODULE PROCEDURE ooo_wri_extra_3d_index, ooo_wri_extra_4d, ooo_wri_extra_4d_index
    END INTERFACE
 
    CONTAINS
 
-      SUBROUTINE off_wri_extra_3d_index(cdfilename, cdvarname, ndeps, nvars, &
+      SUBROUTINE ooo_wri_extra_3d_index(cdfilename, cdvarname, ndeps, nvars, &
                                &  nobs, kstart, kcount, pdata)
          !!----------------------------------------------------------------------
-         !!                    ***  ROUTINE off_wri_extra_3d  ***
+         !!                    ***  ROUTINE ooo_wri_extra_3d  ***
          !!
          !! ** Purpose : Write 3d variables to class 4 file.
@@ -52 +52 @@
                  & dimid, &      !:
                  & varid         !:
-         CHARACTER(len=16), PARAMETER :: cpname = 'off_wri_extra_3d'
+         CHARACTER(len=16), PARAMETER :: cpname = 'ooo_wri_extra_3d'
          ! Open netcdf file
          CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ )
@@ -60 +60 @@
          ! Close netcdf file
          CALL chkerr(nf90_close(ncid), cpname, __LINE__ )
-      END SUBROUTINE off_wri_extra_3d_index
-
-      SUBROUTINE off_wri_extra_4d_index(cdfilename, cdvarname, ndeps, nfcst, &
+      END SUBROUTINE ooo_wri_extra_3d_index
+
+      SUBROUTINE ooo_wri_extra_4d_index(cdfilename, cdvarname, ndeps, nfcst, &
                                &  nvars, nobs, kstart, kcount, pdata)
          !!----------------------------------------------------------------------
-         !!                    ***  ROUTINE off_wri_extra_4d  ***
+         !!                    ***  ROUTINE ooo_wri_extra_4d  ***
          !!
          !! ** Purpose : Write 4d variables to class 4 file.
@@ -87 +87 @@
                  & dimid, &      !:
                  & varid         !:
-         CHARACTER(len=22), PARAMETER :: cpname = 'off_wri_extra_4d_index'
+         CHARACTER(len=22), PARAMETER :: cpname = 'ooo_wri_extra_4d_index'
          ! Open netcdf file
          CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ )
@@ -95 +95 @@
          ! Close netcdf file
          CALL chkerr(nf90_close(ncid), cpname, __LINE__ )
-      END SUBROUTINE off_wri_extra_4d_index
-
-      SUBROUTINE off_wri_extra_4d(cdfilename, cdvarname, ndeps, nfcst, &
+      END SUBROUTINE ooo_wri_extra_4d_index
+
+      SUBROUTINE ooo_wri_extra_4d(cdfilename, cdvarname, ndeps, nfcst, &
                                &  nvars, nobs, pdata)
          !!----------------------------------------------------------------------
-         !!                    ***  ROUTINE off_wri_extra_4d  ***
+         !!                    ***  ROUTINE ooo_wri_extra_4d  ***
          !!
          !! ** Purpose : Write 4d variables to class 4 file.
@@ -119 +119 @@
                  & dimid, &      !:
                  & varid         !:
-         CHARACTER(len=16), PARAMETER :: cpname = 'off_wri_extra_4d'
+         CHARACTER(len=16), PARAMETER :: cpname = 'ooo_wri_extra_4d'
          ! Open netcdf file
          CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ )
@@ -127 +127 @@
          ! Close netcdf file
          CALL chkerr(nf90_close(ncid), cpname, __LINE__ )
-      END SUBROUTINE off_wri_extra_4d
-
-      SUBROUTINE off_wri_default(cdfilename, nobs, nvars, nfcst, ndeps, & 
+      END SUBROUTINE ooo_wri_extra_4d
+
+      SUBROUTINE ooo_wri_default(cdfilename, nobs, nvars, nfcst, ndeps, & 
                              &   cdtyp, cdwmo, cunit, cvnam, &
                              &   plam, pphi, pdep, ptim, pob, plead, &
                              &   kqc, pmjuld)
          !!----------------------------------------------------------------------
-         !!                    ***  ROUTINE off_wri_default  ***
+         !!                    ***  ROUTINE ooo_wri_default  ***
          !!
          !! ** Purpose : Write standard variables to class 4 file.
@@ -189 +189 @@
                  & dimid, & !:
                  & varid    !:
-         CHARACTER(len=15), PARAMETER :: cpname = 'off_wri_default'
+         CHARACTER(len=15), PARAMETER :: cpname = 'ooo_wri_default'
          ! Open netcdf file
          CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ )
@@ -250 +250 @@
          ! Close netcdf file
          CALL chkerr(nf90_close(ncid), cpname, __LINE__ )
-      END SUBROUTINE off_wri_default
-
-      SUBROUTINE off_wri_init(cconf, csys, ckind, cversion, ccont, &
+      END SUBROUTINE ooo_wri_default
+
+      SUBROUTINE ooo_wri_init(cconf, csys, ckind, cversion, ccont, &
                             & cinst, cdate, nproc, nobs, nvars, &
                             & ndeps, nfcst, cdfilename)
          !!----------------------------------------------------------------------
-         !!                    ***  ROUTINE off_wri_init  ***
+         !!                    ***  ROUTINE ooo_wri_init  ***
          !!
          !! ** Purpose : Initialise a class 4 file.
@@ -310 +310 @@
          INTEGER, DIMENSION(4) :: &
                  & dim4a         !: 4 dimensional settings
-         CHARACTER(len=12), PARAMETER :: cpname = 'off_wri_init'
+         CHARACTER(len=12), PARAMETER :: cpname = 'ooo_wri_init'
          ! Global att variables
          CHARACTER(len=40) :: date_str
@@ -613 +613 @@
             CALL chkerr(nf90_close(ncid), cpname, __LINE__ )
          END IF
-      END SUBROUTINE off_wri_init
-
-
-END MODULE off_write
+      END SUBROUTINE ooo_wri_init
+
+
+END MODULE ooo_write