Changeset 12036


Ignore:
Timestamp:
2019-12-03T13:00:09+01:00 (7 weeks ago)
Author:
kingr
Message:

Fix to update times only when bkg time-averged.

Location:
branches/UKMO/dev_r5518_obs_oper_update_SlaAssim/NEMOGCM/NEMO/OPA_SRC/OBS
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/UKMO/dev_r5518_obs_oper_update_SlaAssim/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90

    r12035 r12036  
    919919               &               nvarssurf(jtype), nextrsurf(jtype), nitend-nit000+2, & 
    920920               &               rn_dobsini, rn_dobsend, MeanPeriodHours, ln_ignmis, .FALSE., & 
    921                &               llnightav(jtype), ltype_clim, clvars ) 
     921               &               llnightav(jtype), ltype_clim, ln_time_mean_sla_bkg, clvars ) 
    922922 
    923923            CALL obs_pre_surf( surfdata(jtype), surfdataqc(jtype), ln_nea, ln_bound_reject ) 
  • branches/UKMO/dev_r5518_obs_oper_update_SlaAssim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_read_surf.F90

    r12035 r12036  
    4040   SUBROUTINE obs_rea_surf( surfdata, knumfiles, cdfilenames, & 
    4141      &                     kvars, kextr, kstp, ddobsini, ddobsend, MeanPeriodHours, & 
    42       &                     ldignmis, ldmod, ldnightav, ldclim, cdvars ) 
     42      &                     ldignmis, ldmod, ldnightav, ldclim, ln_time_mean_sla_bkg, cdvars ) 
    4343      !!--------------------------------------------------------------------- 
    4444      !! 
     
    7272      LOGICAL, INTENT(IN) :: ldnightav  ! Observations represent a night-time average 
    7373      LOGICAL, INTENT(IN) :: ldclim     ! Will include climatology at obs points. 
     74      LOGICAL, INTENT(IN) :: ln_time_mean_sla_bkg     ! Will reset times to end of averaging period. 
    7475      REAL(dp), INTENT(IN) :: ddobsini   ! Obs. ini time in YYYYMMDD.HHMMSS 
    7576      REAL(dp), INTENT(IN) :: ddobsend   ! Obs. end time in YYYYMMDD.HHMMSS 
     
    284285            !If the observations are representing a time mean then set the time 
    285286            !of the obs to the end of that meaning period relative to the start of the run 
    286             IF ( MeanPeriodHours > 0._wp ) THEN 
     287            IF ( MeanPeriodHours > 0._wp .AND. ln_time_mean_sla_bkg ) THEN 
    287288               DO ji = 1, inpfiles(jj)%nobs 
    288289                  inpfiles(jj)%ptim(ji) = & 
Note: See TracChangeset for help on using the changeset viewer.