Changeset 12139
- Timestamp:
- 2019-12-10T12:31:14+01:00 (5 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/UKMO/dev_r5518_obs_oper_update_SlaAssim/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90
r12035 r12139 694 694 IF ( imeanend == 0 ) THEN 695 695 zmeanstp = 1.0 / REAL( kmeanstp ) 696 IF (lwp) WRITE(numout,*)'Calculating surfdata aqc%vdmean time mean on time-step: ',kt,' with weight: ',zmeanstp696 IF (lwp) WRITE(numout,*)'Calculating surfdataqc%vdmean time mean on time-step: ',kt,' with weight: ',zmeanstp 697 697 DO jj = 1, jpj 698 698 DO ji = 1, jpi 699 699 surfdataqc%vdmean(ji,jj) = surfdataqc%vdmean(ji,jj) & 700 &* zmeanstp700 & * zmeanstp 701 701 END DO 702 702 END DO
Note: See TracChangeset
for help on using the changeset viewer.