Changeset 4781
- Timestamp:
- 2014-09-22T16:54:46+02:00 (10 years ago)
- Location:
- branches/2014/dev_r4650_UKMO14.11_SETTE_OBSASM/NEMOGCM
- Files:
-
- 5 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2014/dev_r4650_UKMO14.11_SETTE_OBSASM/NEMOGCM/NEMO/OPA_SRC/ASM/asminc.F90
r4624 r4781 237 237 & ' Inconsistent options') 238 238 239 IF ( ( ln_bkgwri ).AND.( ( ln_asmdin ).OR.( ln_asmiau ) ) ) &240 & CALL ctl_stop( ' ln_bkgwri and either ln_asmdin or ln_asmiau are set to .true.:', &241 & ' The background state must be written before applying the increments')242 243 239 IF ( ( niaufn /= 0 ).AND.( niaufn /= 1 ) ) & 244 240 & CALL ctl_stop( ' niaufn /= 0 or niaufn /=1 :', & -
branches/2014/dev_r4650_UKMO14.11_SETTE_OBSASM/NEMOGCM/NEMO/OPA_SRC/OBS/diaobs.F90
r4751 r4781 484 484 CALL obs_grid_setup( ) 485 485 IF ( ( n1dint < 0 ).OR.( n1dint > 1 ) ) THEN 486 IF(lwp) WRITE(numout,cform_err) 487 IF(lwp) WRITE(numout,*) ' Choice of vertical (1D) interpolation method', & 488 & ' is not available' 489 nstop = nstop + 1 486 CALL ctl_stop(' Choice of vertical (1D) interpolation method', & 487 & ' is not available') 490 488 ENDIF 491 489 IF ( ( n2dint < 0 ).OR.( n2dint > 4 ) ) THEN 492 IF(lwp) WRITE(numout,cform_err) 493 IF(lwp) WRITE(numout,*) ' Choice of horizontal (2D) interpolation method', & 494 & ' is not available' 495 nstop = nstop + 1 490 CALL ctl_stop(' Choice of horizontal (2D) interpolation method', & 491 & ' is not available') 496 492 ENDIF 497 493 -
branches/2014/dev_r4650_UKMO14.11_SETTE_OBSASM/NEMOGCM/NEMO/OPA_SRC/OBS/jul2greg.h90
r2287 r4781 16 16 !! ! 06-05 (A. Vidard) Reformatted and refdate 17 17 !! ! 06-10 (A. Weaver) Cleanup 18 !! ! 2014-09 (D. Lea) Change to use FLOOR to deal with negative prelday 18 19 !!----------------------------------------------------------------------- 19 20 … … 82 83 83 84 zday = prelday 84 ksec = NINT( 86400. * MOD( zday, 1. ) )85 ksec = FLOOR( 86400. * MOD( zday, 1. ) ) 85 86 86 87 IF ( ksec < 0. ) ksec = 86400. + ksec -
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 ) -
branches/2014/dev_r4650_UKMO14.11_SETTE_OBSASM/NEMOGCM/SETTE/sette.sh
r4753 r4781 140 140 # ORCA2_LIM_OBS: 11 141 141 # ORCA2_AGRIF_LIM: 12 142 for config in 1 2 3 4 5 6 7 8 9 10 11 142 for config in 1 2 3 4 5 6 7 8 9 10 11 12 143 143 144 144 do
Note: See TracChangeset
for help on using the changeset viewer.