Changeset 15395 for NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_group_def.F90

Timestamp:

2021-10-18T14:42:58+02:00 (3 years ago)

Author:

dford

Message:

Fix use of POTM/TEMP and grid type output.

File:

• NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_group_def.F90 (modified) (2 diffs)

NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_group_def.F90

@@ -57 +57 @@
       CHARACTER(LEN=128)                            :: cbiasvarname  !: Bias variable name in input file
       CHARACTER(LEN=128)                            :: caltbiasfile  !: Altimeter bias input file name
+      CHARACTER(LEN=1)                              :: cgrid         !: Grid type (T,U,V)
       !
       INTEGER,            DIMENSION(:), ALLOCATABLE :: nprofdavtypes !: Profile data types representing a daily average
@@ -316 +317 @@
                !
                IF (TRIM(sdobsgroup%cobstypes(itype)) == cobsname_uvel) THEN
+                  sdobsgroup%cgrid              = 'U'
                   sdobsgroup%rglam(:,:,itype)   = glamu(:,:)
                   sdobsgroup%rgphi(:,:,itype)   = gphiu(:,:)
                   sdobsgroup%rmask(:,:,:,itype) = umask(:,:,:)
                ELSEIF (TRIM(sdobsgroup%cobstypes(itype)) == cobsname_vvel) THEN
+                  sdobsgroup%cgrid              = 'V'
                   sdobsgroup%rglam(:,:,itype)   = glamv(:,:)
                   sdobsgroup%rgphi(:,:,itype)   = gphiv(:,:)
                   sdobsgroup%rmask(:,:,:,itype) = vmask(:,:,:)
                ELSE
+                  sdobsgroup%cgrid              = 'T'
                   sdobsgroup%rglam(:,:,itype)   = glamt(:,:)
                   sdobsgroup%rgphi(:,:,itype)   = gphit(:,:)