- Timestamp:
- 2019-12-03T13:00:09+01:00 (5 years ago)
- 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 919 919 & nvarssurf(jtype), nextrsurf(jtype), nitend-nit000+2, & 920 920 & 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 ) 922 922 923 923 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 40 40 SUBROUTINE obs_rea_surf( surfdata, knumfiles, cdfilenames, & 41 41 & kvars, kextr, kstp, ddobsini, ddobsend, MeanPeriodHours, & 42 & ldignmis, ldmod, ldnightav, ldclim, cdvars )42 & ldignmis, ldmod, ldnightav, ldclim, ln_time_mean_sla_bkg, cdvars ) 43 43 !!--------------------------------------------------------------------- 44 44 !! … … 72 72 LOGICAL, INTENT(IN) :: ldnightav ! Observations represent a night-time average 73 73 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. 74 75 REAL(dp), INTENT(IN) :: ddobsini ! Obs. ini time in YYYYMMDD.HHMMSS 75 76 REAL(dp), INTENT(IN) :: ddobsend ! Obs. end time in YYYYMMDD.HHMMSS … … 284 285 !If the observations are representing a time mean then set the time 285 286 !of the obs to the end of that meaning period relative to the start of the run 286 IF ( MeanPeriodHours > 0._wp ) THEN287 IF ( MeanPeriodHours > 0._wp .AND. ln_time_mean_sla_bkg ) THEN 287 288 DO ji = 1, inpfiles(jj)%nobs 288 289 inpfiles(jj)%ptim(ji) = &
Note: See TracChangeset
for help on using the changeset viewer.