Changeset 15288 for NEMO/branches/UKMO/NEMO_4.0.4_generic_obs

Timestamp:

2021-09-24T17:11:43+02:00 (3 years ago)

Author:

dford

Message:

Clean up some comments.

Location:

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

Files:

• obs_read_surf.F90 (modified) (1 diff)
• obs_write.F90 (modified) (3 diffs)

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

@@ -606 +606 @@
 
                   ! QC flags
-! WHY IS THIS NOT A FUNCTION OF NUM VARS?
                   surfdata%nqc(iobs) = inpfiles(jj)%ivqc(ji,jvar)
 
                   ! Observed value
                   surfdata%robs(iobs,jvar) = inpfiles(jj)%pob(1,ji,jvar)
-
-! THIS NEEDS SORTING
-!                  ! Model and MDT is set to fbrmdi unless read from file
-!                  IF ( ldmod ) THEN
-!                     surfdata%rmod(iobs,jvar) = inpfiles(jj)%padd(1,ji,1,1)
-!                     IF ( TRIM(surfdata%cvars(1)) == 'SLA' ) THEN
-!                        surfdata%rext(iobs,1) = inpfiles(jj)%padd(1,ji,2,1)
-!                        surfdata%rext(iobs,2) = inpfiles(jj)%pext(1,ji,1)
-!                     ENDIF
-!                   ELSE
-!                     surfdata%rmod(iobs,jvar) = fbrmdi
-!                     IF ( TRIM(surfdata%cvars(1)) == 'SLA' ) surfdata%rext(iobs,:) = fbrmdi
-!                  ENDIF
 
                   ! Additional variables

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

@@ -364 +364 @@
          ENDIF
       END DO
-!fbdata%cname(1)      = surfdata%cvars(1)
-!fbdata%coblong(1)    = 'Sea level anomaly'
-!fbdata%cobunit(1)    = 'Metres'
-!fbdata%cextname(1)   = 'MDT'
-!fbdata%cextlong(1)   = 'Mean dynamic topography'
-!fbdata%cextunit(1)   = 'Metres'
-!fbdata%caddname(2)   = 'SSH'
-!fbdata%caddlong(2,1) = 'Model Sea surface height'
-!fbdata%caddunit(2,1) = 'Metres'
-!IF ( TRIM(surfdata%cvars(1)) == 'ICECONC' ) THEN
-!   fbdata%caddlong(1,1) = 'Model interpolated ICE'
-!ELSE
-!   fbdata%caddlong(1,1) = 'Model interpolated ' // TRIM(surfdata%cvars(1))
-!ENDIF
 
       WRITE(clfname, FMT="(A,'fb_fdbk_',I4.4,'.nc')") TRIM(clfiletype), nproc
@@ -434 +420 @@
          DO jvar = 1, surfdata%nvar
             fbdata%padd(1,jo,1,jvar) = surfdata%rmod(jo,jvar)
-!IF ( TRIM(surfdata%cvars(1)) == 'SLA' ) fbdata%padd(1,jo,2,1) = surfdata%rext(jo,1)
             fbdata%pob(1,jo,jvar)    = surfdata%robs(jo,jvar)
             IF ( surfdata%nqc(jo) > 255 ) THEN
@@ -449 +434 @@
             ENDIF
             fbdata%iobsk(1,jo,jvar)  = 0
-!IF ( TRIM(surfdata%cvars(1)) == 'SLA' ) fbdata%pext(1,jo,1) = surfdata%rext(jo,2)
             IF (iadd > 0) THEN
                DO ja = 1, iadd