source: LMDZ5/branches/testing/tools/Max_diff_nc_with_lib/NR_util/vabs.f90 @ 2787

Last change on this file since 2787 was 1910, checked in by Laurent Fairhead, 11 years ago

Merged trunk changes r1860:1909 into testing branch
  • Property copyright set to
    Name of program: LMDZ
    Creation date: 1984
    Version: LMDZ5
    License: CeCILL version 2
    Holder: Laboratoire de m\'et\'eorologie dynamique, CNRS, UMR 8539
    See the license file in the root directory
File size: 222 bytes
Line 
1module vabs_m
2
3  implicit none
4
5contains
6
7  FUNCTION vabs(v)
8    USE nrtype, only: wp
9    REAL(WP), DIMENSION(:), INTENT(IN) :: v
10    REAL(WP) :: vabs
11    vabs=sqrt(dot_product(v,v))
12  END FUNCTION vabs
13
14end module vabs_m
Note: See TracBrowser for help on using the repository browser.