Changeset 4850 for branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC

Timestamp:

2014-11-12T15:32:01+01:00 (9 years ago)

Author:

andrewryan

Message:

moved ooo_write.F90 to sao_write.F90 along with renaming its internal subroutines appropriately

File:

• branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_write.F90 (moved) (moved from branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/ooo_write.F90) (13 diffs)

branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/sao_write.F90

@@ -1 @@
-MODULE ooo_write
+MODULE sao_write
    !!======================================================================
-   !!                       ***  MODULE ooo_write  ***
+   !!                       ***  MODULE sao_write  ***
    !!======================================================================
 
@@ -13 +13 @@
    PRIVATE
 
-   PUBLIC ooo_wri_init
-   PUBLIC ooo_wri_default
-   PUBLIC ooo_wri_extra
+   PUBLIC sao_wri_init
+   PUBLIC sao_wri_default
+   PUBLIC sao_wri_extra
 
    ! Type kinds for class 4 data.
@@ -25 +25 @@
    REAL(clsp), PARAMETER :: clrmdi =  99999   !: Reals
 
-   INTERFACE ooo_wri_extra
-      MODULE PROCEDURE ooo_wri_extra_3d_index, ooo_wri_extra_4d, ooo_wri_extra_4d_index
+   INTERFACE sao_wri_extra
+      MODULE PROCEDURE sao_wri_extra_3d_index, sao_wri_extra_4d, sao_wri_extra_4d_index
    END INTERFACE
 
    CONTAINS
 
-      SUBROUTINE ooo_wri_extra_3d_index(cdfilename, cdvarname, ndeps, nvars, &
+      SUBROUTINE sao_wri_extra_3d_index(cdfilename, cdvarname, ndeps, nvars, &
                                &  nobs, kstart, kcount, pdata)
          !!----------------------------------------------------------------------
-         !!                    ***  ROUTINE ooo_wri_extra_3d  ***
+         !!                    ***  ROUTINE sao_wri_extra_3d  ***
          !!
          !! ** Purpose : Write 3d variables to class 4 file.
@@ -55 +55 @@
                  & dimid, &      !:
                  & varid         !:
-         CHARACTER(len=16), PARAMETER :: cpname = 'ooo_wri_extra_3d'
+         CHARACTER(len=16), PARAMETER :: cpname = 'sao_wri_extra_3d'
          ! Open netcdf file
          CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ )
@@ -63 +63 @@
          ! Close netcdf file
          CALL chkerr(nf90_close(ncid), cpname, __LINE__ )
-      END SUBROUTINE ooo_wri_extra_3d_index
-
-      SUBROUTINE ooo_wri_extra_4d_index(cdfilename, cdvarname, ndeps, nfcst, &
+      END SUBROUTINE sao_wri_extra_3d_index
+
+      SUBROUTINE sao_wri_extra_4d_index(cdfilename, cdvarname, ndeps, nfcst, &
                                &  nvars, nobs, kstart, kcount, pdata)
          !!----------------------------------------------------------------------
-         !!                    ***  ROUTINE ooo_wri_extra_4d  ***
+         !!                    ***  ROUTINE sao_wri_extra_4d  ***
          !!
          !! ** Purpose : Write 4d variables to class 4 file.
@@ -90 +90 @@
                  & dimid, &      !:
                  & varid         !:
-         CHARACTER(len=22), PARAMETER :: cpname = 'ooo_wri_extra_4d_index'
+         CHARACTER(len=22), PARAMETER :: cpname = 'sao_wri_extra_4d_index'
          ! Open netcdf file
          CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ )
@@ -98 +98 @@
          ! Close netcdf file
          CALL chkerr(nf90_close(ncid), cpname, __LINE__ )
-      END SUBROUTINE ooo_wri_extra_4d_index
-
-      SUBROUTINE ooo_wri_extra_4d(cdfilename, cdvarname, ndeps, nfcst, &
+      END SUBROUTINE sao_wri_extra_4d_index
+
+      SUBROUTINE sao_wri_extra_4d(cdfilename, cdvarname, ndeps, nfcst, &
                                &  nvars, nobs, pdata)
          !!----------------------------------------------------------------------
-         !!                    ***  ROUTINE ooo_wri_extra_4d  ***
+         !!                    ***  ROUTINE sao_wri_extra_4d  ***
          !!
          !! ** Purpose : Write 4d variables to class 4 file.
@@ -122 +122 @@
                  & dimid, &      !:
                  & varid         !:
-         CHARACTER(len=16), PARAMETER :: cpname = 'ooo_wri_extra_4d'
+         CHARACTER(len=16), PARAMETER :: cpname = 'sao_wri_extra_4d'
          ! Open netcdf file
          CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ )
@@ -130 +130 @@
          ! Close netcdf file
          CALL chkerr(nf90_close(ncid), cpname, __LINE__ )
-      END SUBROUTINE ooo_wri_extra_4d
-
-      SUBROUTINE ooo_wri_default(cdfilename, nobs, nvars, nfcst, ndeps, & 
+      END SUBROUTINE sao_wri_extra_4d
+
+      SUBROUTINE sao_wri_default(cdfilename, nobs, nvars, nfcst, ndeps, & 
                              &   cdtyp, cdwmo, cunit, cvnam, &
                              &   plam, pphi, pdep, ptim, pob, plead, &
                              &   kqc, pmjuld)
          !!----------------------------------------------------------------------
-         !!                    ***  ROUTINE ooo_wri_default  ***
+         !!                    ***  ROUTINE sao_wri_default  ***
          !!
          !! ** Purpose : Write standard variables to class 4 file.
@@ -192 +192 @@
                  & dimid, & !:
                  & varid    !:
-         CHARACTER(len=15), PARAMETER :: cpname = 'ooo_wri_default'
+         CHARACTER(len=15), PARAMETER :: cpname = 'sao_wri_default'
          ! Open netcdf file
          CALL chkerr(nf90_open(trim(cdfilename), nf90_write, ncid), cpname, __LINE__ )
@@ -242 +242 @@
          ! Close netcdf file
          CALL chkerr(nf90_close(ncid), cpname, __LINE__ )
-      END SUBROUTINE ooo_wri_default
-
-      SUBROUTINE ooo_wri_init(cconf, csys, ckind, cversion, ccont, &
+      END SUBROUTINE sao_wri_default
+
+      SUBROUTINE sao_wri_init(cconf, csys, ckind, cversion, ccont, &
                             & cinst, cdate, nproc, nobs, nvars, &
                             & ndeps, nfcst, cdfilename)
          !!----------------------------------------------------------------------
-         !!                    ***  ROUTINE ooo_wri_init  ***
+         !!                    ***  ROUTINE sao_wri_init  ***
          !!
          !! ** Purpose : Initialise a class 4 file.
@@ -302 +302 @@
          INTEGER, DIMENSION(4) :: &
                  & dim4a         !: 4 dimensional settings
-         CHARACTER(len=12), PARAMETER :: cpname = 'ooo_wri_init'
+         CHARACTER(len=12), PARAMETER :: cpname = 'sao_wri_init'
          ! Global att variables
          CHARACTER(len=40) :: date_str
@@ -586 +586 @@
             CALL chkerr(nf90_close(ncid), cpname, __LINE__ )
          END IF
-      END SUBROUTINE ooo_wri_init
-
-
-END MODULE ooo_write
+      END SUBROUTINE sao_wri_init
+
+
+END MODULE sao_write