- Timestamp:
- 2012-11-23T14:57:56+01:00 (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/2012/dev_r3604_LEGI8_TAM/NEMOGCM/NEMO/OPATAM_SRC/dotprodfld.F90
r3611 r3640 61 61 & pvec2 62 62 !! * Local declarations 63 dot_product_3d = glob_sum(pvec1(:,:,:) * pvec2(:,:,:))!= glob_sum( & 64 !& PACK( pvec1(nldi:nlei,nldj:nlej,:),.TRUE.) * & 65 !& PACK( pvec2(nldi:nlei,nldj:nlej,:),.TRUE.), & 66 !& (nlei-nldi+1) * (nlej-nldj+1) * jpk ) 63 64 dot_product_3d = glob_sum( & 65 & PACK( pvec1(nldi:nlei,nldj:nlej,:),.TRUE.) * & 66 & PACK( pvec2(nldi:nlei,nldj:nlej,:),.TRUE.), & 67 & (nlei-nldi+1) * (nlej-nldj+1) * jpk ) 67 68 68 69 END FUNCTION dot_product_3d
Note: See TracChangeset
for help on using the changeset viewer.