Changeset 4121

Timestamp:

2013-10-24T15:20:19+02:00 (11 years ago)

Author:

andrewryan

Message:

Replaced OOO_SRC/obs_fbm.F90 with symbolic link to OPA_SRC/OBS/obs_fbm.F90 and included link to dtadyn.F90

Location:

branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO

Files:

• OOO_SRC/dtadyn.F90 (added)
• OOO_SRC/obs_fbm.F90 (added)
• OPA_SRC/OBS/obs_fbm.F90 (modified) (3 diffs)

branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OPA_SRC/OBS/obs_fbm.F90

@@ -1564 +1564 @@
       !! ** Purpose : Write an obfbdata structure into a class 4 file.
       !!
-      !! ** Method  : 1. Allocate memory needed by off_wri
+      !! ** Method  : 1. Allocate memory needed by ooo_write
       !!              2. Map obfbdata into allocated memory
-      !!              3. Pass mapped data to off_wri
+      !!              3. Pass mapped data to ooo_write
       !!              4. Deallocate memory
       !!----------------------------------------------------------------------
@@ -1572 +1572 @@
       USE ooo_write
       USE ooo_data
-      IMPLICIT NONE
       !! * Arguments
       CHARACTER(len=*) :: cdfilename ! Feedback filename
@@ -1772 +1771 @@
       !! ** Method  : 1. Inspect cdfilename for observation kind.
       !!----------------------------------------------------------------------
-      IMPLICIT NONE
       CHARACTER(len=*) :: cdfilename ! Feedback filename
       CHARACTER(len=8) :: ckind