Changeset 9308 for branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_surf_def.F90

Timestamp:

2018-02-06T11:30:42+01:00 (6 years ago)

Author:

kingr

Message:

Merging changes required to read and write instrument error from/to fdbk file (e.g., SST_STD).

File:

• branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_surf_def.F90 (modified) (4 diffs)

branches/UKMO/dev_r5518_obs_oper_update/NEMOGCM/NEMO/OPA_SRC/OBS/obs_surf_def.F90

@@ -71 +71 @@
       CHARACTER(len=8), POINTER, DIMENSION(:) :: &
          & cvars          !: Variable names
+
+      CHARACTER(len=8), POINTER, DIMENSION(:) :: &
+         & cext           !: Extra field names
 
       CHARACTER(LEN=8), POINTER, DIMENSION(:) :: &
@@ -200 +203 @@
 
       ALLOCATE( & 
-         & surf%rext(ksurf,kextra) &
+         & surf%rext(ksurf,kextra), &
+         & surf%cext(kextra)        &
          & )
 
       surf%rext(:,:) = 0.0_wp 
+
+      DO ji = 1, kextra
+         surf%cext(ji) = "NotSet"
+      END DO
 
       ! Allocate arrays of number of time step size
@@ -288 +296 @@
 
       DEALLOCATE( & 
-         & surf%rext &
+         & surf%rext, &
+         & surf%cext &
          & )
 
@@ -435 +444 @@
       newsurf%nstp     = surf%nstp
       newsurf%cvars(:) = surf%cvars(:)
+      newsurf%cext(:)  = surf%cext(:)
       
       ! Set gridded stuff