Changeset 4847

Timestamp:

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

Author:

andrewryan

Message:

moved ooo_intp.F90 to sao_intp.F90 along with renaming its internal subroutines appropriately

Location:

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

Files:

• nemogcm.F90 (modified) (2 diffs)
• sao_intp.F90 (moved) (moved from branches/2014/dev_r4650_UKMO14.12_STAND_ALONE_OBSOPER/NEMOGCM/NEMO/SAO_SRC/ooo_intp.F90) (3 diffs)

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

@@ -67 +67 @@
    USE ooo_data
    USE ooo_read
-   USE ooo_intp
+   USE sao_intp
 
    IMPLICIT NONE
@@ -109 +109 @@
             CALL dia_obs_init
             !! Interpolate to observation space
-            CALL ooo_interp
+            CALL sao_interp
             !! Pipe to output files
             CALL dia_obs_wri

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

@@ -1 @@
-MODULE ooo_intp
+MODULE sao_intp
    !!======================================================================
-   !!                    ***  MODULE ooo_intp ***
+   !!                    ***  MODULE sao_intp ***
    !! ** Purpose : Run NEMO observation operator in offline mode
    !!======================================================================
@@ -14 +14 @@
    PRIVATE
 
-   PUBLIC ooo_interp
+   PUBLIC sao_interp
 
    CONTAINS
 
-      SUBROUTINE ooo_interp
+      SUBROUTINE sao_interp
          !!----------------------------------------------------------------------
-         !!                    ***  SUBROUTINE ooo_interp ***
+         !!                    ***  SUBROUTINE sao_interp ***
          !!
          !! ** Purpose : To interpolate the model as if it were running online.
@@ -44 +44 @@
             istp = istp + 1
          END DO
-      END SUBROUTINE ooo_interp
+      END SUBROUTINE sao_interp
 
-END MODULE ooo_intp
+END MODULE sao_intp