Changeset 4781 for branches/2014/dev_r4650_UKMO14.11_SETTE_OBSASM/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90
- Timestamp:
- 2014-09-22T16:54:46+02:00 (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.11_SETTE_OBSASM/NEMOGCM/NEMO/OPA_SRC/OBS/obs_write.F90
r4752 r4781 933 933 !!----------------------------------------------------------------------- 934 934 !! 935 !! *** ROUTINE obs_wri_s eaice***935 !! *** ROUTINE obs_wri_stats *** 936 936 !! 937 937 !! ** Purpose : Output some basic statistics of the data being written out … … 985 985 ENDDO 986 986 987 ! IF (lwp) THEN988 ! WRITE(numout,*) 'cname ',fbdata%cname(jvar)989 ! WRITE(numout,*) 'nobs on proc ',fbdata%nobs990 ! WRITE(numout,*) 'nlev on proc ',fbdata%nlev991 ! WRITE(numout,*) 'numgoodobs ', numgoodobs992 ! WRITE(numout,*) 'sum obs - bkg ', zsumx993 ! WRITE(numout,*) 'sum (obs - bkg)^2 ',zsumx2994 ! ENDIF995 996 ! CALL obs_mpp_sum_integer( fbdata%nobs, nobsmpp )997 987 CALL obs_mpp_sum_integer( numgoodobs, numgoodobsmpp ) 998 988 CALL mpp_sum(zsumx) … … 1001 991 IF (lwp) THEN 1002 992 WRITE(numout,*) 'Type: ',fbdata%cname(jvar),' Total number of good observations: ',numgoodobsmpp 1003 ! WRITE(numout,*) 'nobs on all ',nobsmpp1004 ! WRITE(numout,*) 'nlev on all ',nlevmpp1005 ! WRITE(numout,*) 'nobs*nlev on all ',nobsmpp*nlev1006 ! WRITE(numout,*) 'sum obs - bkg all ', zsumx1007 ! WRITE(numout,*) 'sum (obs - bkg)^2 all ',zsumx21008 993 WRITE(numout,*) 'Overall mean obs minus model of the good observations: ',zsumx/numgoodobsmpp 1009 994 WRITE(numout,*) 'Overall RMS obs minus model of the good observations: ',sqrt( zsumx2/numgoodobsmpp )
Note: See TracChangeset
for help on using the changeset viewer.