source: LMDZ5/branches/LF-private/tools/Max_diff_nc_with_lib/NR_util/outerdiv.f90

Last change on this file was 1765, checked in by lguez, 11 years ago

A tool to compare NetCDF files.

File size: 400 bytes
Line 
1module outerdiv_m
2
3  implicit none
4
5contains
6
7  FUNCTION outerdiv(a,b)
8    ! Returns a matrix that is the outer quotient of two vectors.
9    USE nrtype, only: wp
10    REAL(WP), DIMENSION(:), INTENT(IN) :: a,b
11    REAL(WP), DIMENSION(size(a),size(b)) :: outerdiv
12    outerdiv = spread(a,dim=2,ncopies=size(b)) / &
13         spread(b,dim=1,ncopies=size(a))
14  END FUNCTION outerdiv
15
16end module outerdiv_m
Note: See TracBrowser for help on using the repository browser.