Changeset 2576 for trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90
- Timestamp:
- 2011-02-02T18:50:35+01:00 (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/NEMOGCM/NEMO/OPA_SRC/OBS/obs_oper.F90
r2287 r2576 1027 1027 REAL(KIND=wp) :: zdaystp 1028 1028 REAL(KIND=wp), DIMENSION(kpk) :: & 1029 & zobsmask, & 1030 & zobsk, & 1029 & zobsmasku, & 1030 & zobsmaskv, & 1031 & zobsmask, & 1032 & zobsk, & 1031 1033 & zobs2k 1032 1034 REAL(KIND=wp), DIMENSION(2,2,kpk) :: & … … 1160 1162 zphi = prodatqc%rphi(jobs) 1161 1163 1164 ! Initialize observation masks 1165 1166 zobsmasku(:) = 0.0 1167 zobsmaskv(:) = 0.0 1168 1162 1169 ! Horizontal weights and vertical mask 1163 1170 … … 1166 1173 CALL obs_int_h2d_init( kpk, kpk, k2dint, zlam, zphi, & 1167 1174 & zglamu(:,:,iobs), zgphiu(:,:,iobs), & 1168 & zumask(:,:,:,iobs), zweigu, zobsmask )1175 & zumask(:,:,:,iobs), zweigu, zobsmasku ) 1169 1176 1170 1177 ENDIF … … 1175 1182 CALL obs_int_h2d_init( kpk, kpk, k2dint, zlam, zphi, & 1176 1183 & zglamv(:,:,iobs), zgphiv(:,:,iobs), & 1177 & zvmask(:,:,:,iobs), zweigv, zobsmask )1184 & zvmask(:,:,:,iobs), zweigv, zobsmasku ) 1178 1185 1179 1186 ENDIF 1180 1187 1188 ! Ensure that the vertical mask on u and v are consistent. 1189 1190 zobsmask(:) = MIN( zobsmasku(:), zobsmaskv(:) ) 1181 1191 1182 1192 IF ( prodatqc%npvend(jobs,1) > 0 ) THEN
Note: See TracChangeset
for help on using the changeset viewer.