Changeset 12377 for NEMO/trunk/src/OCE/OBS/obs_prep.F90
- Timestamp:
- 2020-02-12T15:39:06+01:00 (4 years ago)
- Location:
- NEMO/trunk
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
NEMO/trunk
- Property svn:externals
-
old new 3 3 ^/utils/build/mk@HEAD mk 4 4 ^/utils/tools@HEAD tools 5 ^/vendors/AGRIF/dev @HEAD ext/AGRIF5 ^/vendors/AGRIF/dev_r11615_ENHANCE-04_namelists_as_internalfiles_agrif@HEAD ext/AGRIF 6 6 ^/vendors/FCM@HEAD ext/FCM 7 7 ^/vendors/IOIPSL@HEAD ext/IOIPSL
-
- Property svn:externals
-
NEMO/trunk/src/OCE/OBS/obs_prep.F90
r10068 r12377 244 244 & kpi, kpj, kpk, & 245 245 & zmask1, pglam1, pgphi1, zmask2, pglam2, pgphi2, & 246 & ld_nea, ld_bound_reject, kdailyavtypes, kqc_cutoff )246 & ld_nea, ld_bound_reject, Kmm, kdailyavtypes, kqc_cutoff ) 247 247 248 248 !!---------------------------------------------------------------------- … … 274 274 LOGICAL, INTENT(IN) :: ld_bound_reject ! Switch for rejecting observations near the boundary 275 275 INTEGER, INTENT(IN) :: kpi, kpj, kpk ! Local domain sizes 276 INTEGER, INTENT(IN) :: Kmm ! time-level index 276 277 INTEGER, DIMENSION(imaxavtypes), OPTIONAL :: & 277 278 & kdailyavtypes ! Types for daily averages … … 420 421 & inlav1obs, ld_nea, & 421 422 & ibdyv1obs, ld_bound_reject, & 422 & iqc_cutoff )423 & iqc_cutoff, Kmm ) 423 424 424 425 CALL obs_mpp_sum_integer( iosdv1obs, iosdv1obsmpp ) … … 442 443 & inlav2obs, ld_nea, & 443 444 & ibdyv2obs, ld_bound_reject, & 444 & iqc_cutoff )445 & iqc_cutoff, Kmm ) 445 446 446 447 CALL obs_mpp_sum_integer( iosdv2obs, iosdv2obsmpp ) … … 1094 1095 & klanobs, knlaobs, ld_nea, & 1095 1096 & kbdyobs, ld_bound_reject, & 1096 & kqc_cutoff 1097 & kqc_cutoff, Kmm ) 1097 1098 !!---------------------------------------------------------------------- 1098 1099 !! *** ROUTINE obs_coo_spc_3d *** … … 1116 1117 !!---------------------------------------------------------------------- 1117 1118 !! * Modules used 1118 USE dom_oce, ONLY : & ! Geographical information 1119 USE dom_oce, ONLY : & ! Geographical information 1119 1120 & gdepw_1d, & 1120 1121 & gdepw_0, & 1121 & gdepw _n,&1122 & gdept _n,&1122 & gdepw, & 1123 & gdept, & 1123 1124 & ln_zco, & 1124 1125 & ln_zps … … 1160 1161 LOGICAL, INTENT(IN) :: ld_bound_reject ! Flag observations near open boundary 1161 1162 INTEGER, INTENT(IN) :: kqc_cutoff ! Cutoff QC value 1163 INTEGER, INTENT(IN) :: Kmm ! time-level index 1162 1164 1163 1165 !! * Local declarations … … 1230 1232 CALL obs_int_comm_2d( 2, 2, kprofno, kpi, kpj, igrdi, igrdj, plam, zglam ) 1231 1233 CALL obs_int_comm_2d( 2, 2, kprofno, kpi, kpj, igrdi, igrdj, pphi, zgphi ) 1232 CALL obs_int_comm_3d( 2, 2, kprofno, kpi, kpj, kpk, igrdi, igrdj, gdepw _n(:,:,:), &1234 CALL obs_int_comm_3d( 2, 2, kprofno, kpi, kpj, kpk, igrdi, igrdj, gdepw(:,:,:,Kmm), & 1233 1235 & zgdepw ) 1234 1236
Note: See TracChangeset
for help on using the changeset viewer.