New URL for NEMO forge!   http://forge.nemo-ocean.eu

Since March 2022 along with NEMO 4.2 release, the code development moved to a self-hosted GitLab.
This present forge is now archived and remained online for history.
Changeset 15288 – NEMO

Changeset 15288


Ignore:
Timestamp:
2021-09-24T17:11:43+02:00 (15 months ago)
Author:
dford
Message:

Clean up some comments.

Location:
NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_read_surf.F90

    r15240 r15288  
    606606 
    607607                  ! QC flags 
    608 ! WHY IS THIS NOT A FUNCTION OF NUM VARS? 
    609608                  surfdata%nqc(iobs) = inpfiles(jj)%ivqc(ji,jvar) 
    610609 
    611610                  ! Observed value 
    612611                  surfdata%robs(iobs,jvar) = inpfiles(jj)%pob(1,ji,jvar) 
    613  
    614 ! THIS NEEDS SORTING 
    615 !                  ! Model and MDT is set to fbrmdi unless read from file 
    616 !                  IF ( ldmod ) THEN 
    617 !                     surfdata%rmod(iobs,jvar) = inpfiles(jj)%padd(1,ji,1,1) 
    618 !                     IF ( TRIM(surfdata%cvars(1)) == 'SLA' ) THEN 
    619 !                        surfdata%rext(iobs,1) = inpfiles(jj)%padd(1,ji,2,1) 
    620 !                        surfdata%rext(iobs,2) = inpfiles(jj)%pext(1,ji,1) 
    621 !                     ENDIF 
    622 !                   ELSE 
    623 !                     surfdata%rmod(iobs,jvar) = fbrmdi 
    624 !                     IF ( TRIM(surfdata%cvars(1)) == 'SLA' ) surfdata%rext(iobs,:) = fbrmdi 
    625 !                  ENDIF 
    626612 
    627613                  ! Additional variables 
  • NEMO/branches/UKMO/NEMO_4.0.4_generic_obs/src/OCE/OBS/obs_write.F90

    r15285 r15288  
    364364         ENDIF 
    365365      END DO 
    366 !fbdata%cname(1)      = surfdata%cvars(1) 
    367 !fbdata%coblong(1)    = 'Sea level anomaly' 
    368 !fbdata%cobunit(1)    = 'Metres' 
    369 !fbdata%cextname(1)   = 'MDT' 
    370 !fbdata%cextlong(1)   = 'Mean dynamic topography' 
    371 !fbdata%cextunit(1)   = 'Metres' 
    372 !fbdata%caddname(2)   = 'SSH' 
    373 !fbdata%caddlong(2,1) = 'Model Sea surface height' 
    374 !fbdata%caddunit(2,1) = 'Metres' 
    375 !IF ( TRIM(surfdata%cvars(1)) == 'ICECONC' ) THEN 
    376 !   fbdata%caddlong(1,1) = 'Model interpolated ICE' 
    377 !ELSE 
    378 !   fbdata%caddlong(1,1) = 'Model interpolated ' // TRIM(surfdata%cvars(1)) 
    379 !ENDIF 
    380366 
    381367      WRITE(clfname, FMT="(A,'fb_fdbk_',I4.4,'.nc')") TRIM(clfiletype), nproc 
     
    434420         DO jvar = 1, surfdata%nvar 
    435421            fbdata%padd(1,jo,1,jvar) = surfdata%rmod(jo,jvar) 
    436 !IF ( TRIM(surfdata%cvars(1)) == 'SLA' ) fbdata%padd(1,jo,2,1) = surfdata%rext(jo,1) 
    437422            fbdata%pob(1,jo,jvar)    = surfdata%robs(jo,jvar) 
    438423            IF ( surfdata%nqc(jo) > 255 ) THEN 
     
    449434            ENDIF 
    450435            fbdata%iobsk(1,jo,jvar)  = 0 
    451 !IF ( TRIM(surfdata%cvars(1)) == 'SLA' ) fbdata%pext(1,jo,1) = surfdata%rext(jo,2) 
    452436            IF (iadd > 0) THEN 
    453437               DO ja = 1, iadd 
Note: See TracChangeset for help on using the changeset viewer.