Changeset 4106 for branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OOO_SRC/obs_fbm.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/obs_fbm.F90 (copied) (copied from branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OPA_SRC/OBS/obs_fbm.F90) (3 diffs)

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

@@ -1570 +1570 @@
       !!----------------------------------------------------------------------
       USE dom_oce, ONLY: narea
-      USE off_write
-      USE off_data
+      USE ooo_write
+      USE ooo_data
       IMPLICIT NONE
       !! * Arguments
@@ -1734 +1734 @@
 
          ! Initialise class 4 file
-         CALL off_wri_init(cconf, csys, ckind, cversion, ccont, cinst, cdate, &
+         CALL ooo_wri_init(cconf, csys, ckind, cversion, ccont, cinst, cdate, &
                          & kproc, kobs, kvars, kdeps, kfcst, &
                          & clfilename)
 
          ! Write standard variables
-         CALL off_wri_default(clfilename, kobs, kvars, kfcst, kdeps, &
+         CALL ooo_wri_default(clfilename, kobs, kvars, kfcst, kdeps, &
                             & ctype, cwmo, cunit, cvarname, &
                             & plam, pphi, pdep, ptim, pob, plead, &
@@ -1748 +1748 @@
               (TRIM(cdtmp) == "persistence") ) THEN
             !! 4D variables
-            CALL off_wri_extra(clfilename, TRIM(cdtmp), kdeps, kfcst, &
+            CALL ooo_wri_extra(clfilename, TRIM(cdtmp), kdeps, kfcst, &
                             &  kvars, kobs, (/ 1,ij,1,1 /), (/ kdeps,1,kvars,kobs /), pmod)
          ELSE
             !! 3D variables
-            CALL off_wri_extra(clfilename, TRIM(cdtmp), kdeps, &
+            CALL ooo_wri_extra(clfilename, TRIM(cdtmp), kdeps, &
                             &  kvars, kobs, (/ 1,1,1 /), (/ kdeps,kvars,kobs /), pmod)
          ENDIF