Changeset 4053

Timestamp:

2013-10-04T18:08:33+02:00 (11 years ago)

Author:

djlea

Message:

Add a key to protect code for the offline observation operator

File:

• branches/2013/dev_r3987_UKMO4_OBS/NEMOGCM/NEMO/OPA_SRC/OBS/obs_fbm.F90 (modified) (4 diffs)

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

@@ -1043 +1043 @@
       CHARACTER(len=*) :: cdfilename ! Output filename
       TYPE(obfbdata)   :: fbdata     ! obsfbdata structure
+#if defined key_offobsoper
       IF (ln_cl4) THEN
           ! Class 4 file output stream
           CALL write_obfbdata_cl( cdfilename, fbdata )
       ELSE
+#endif
           ! Standard feedback file output stream
           CALL write_obfbdata_fb( cdfilename, fbdata )
-      ENDIF  
+#if defined key_offobsoper
+      ENDIF
+#endif
    END SUBROUTINE write_obfbdata
 
@@ -1553 +1557 @@
    END SUBROUTINE write_obfbdata_fb
 
+#if defined key_offobsoper
    SUBROUTINE write_obfbdata_cl(cdfilename, fbdata)
       !!----------------------------------------------------------------------
@@ -1756 +1761 @@
       END IF
    END SUBROUTINE write_obfbdata_cl
-
+#endif
+
+#if defined key_offobsoper
    SUBROUTINE locate_kind(cdfilename, ckind)
       !!----------------------------------------------------------------------
@@ -1782 +1789 @@
       END IF
    END SUBROUTINE locate_kind
+#endif
 
    SUBROUTINE putvaratt_obfbdata( idfile, idvar, cdlongname, cdunits, &