source: LMDZ5/tags/proto-testing-20131015/tools/Max_diff_nc_with_lib/NR_util/vabs.f90 @ 2300

Last change on this file since 2300 was 1795, checked in by Ehouarn Millour, 11 years ago

Version testing basee sur la r1794

Testing release based on r1794
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.