Changeset 5704 for branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/TOOLS/OBSTOOLS/src/fbgenerate_coords.F90

Timestamp:

2015-08-21T15:00:38+02:00 (9 years ago)

Author:

mattmartin

Message:

Updated simplified obs operator after testing sea-ice concentration and velocity data types.

File:

• branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/TOOLS/OBSTOOLS/src/fbgenerate_coords.F90 (modified) (2 diffs)

branches/2015/dev_r5072_UKMO2_OBS_simplification/NEMOGCM/TOOLS/OBSTOOLS/src/fbgenerate_coords.F90

@@ -26 +26 @@
 
 
-   SUBROUTINE set_spatial_coords(lats,lons,n,FillVal)
+   SUBROUTINE set_spatial_coords(lats,lons,n,nlats,nlons,FillVal)
    IMPLICIT NONE  
    INTEGER :: i, j, k, p, nlats, nlons, nlats_in_list, nlons_in_list
@@ -436 +436 @@
                array(j,:,k) = array(j,1,k)
             END DO
-            
+         ! If single depth and only first profile has a value then set the rest based on that
+         ELSE IF ((n > 1) .AND. (m == 1) .AND. (array(1,2,k) == FillVal)) THEN
+                 array(1,2:,k) = array(1,1,k)
          ELSE 
             array(:,:,k) = array(:,:,k)