source: CONFIG_DEVT/LMDZOR_V6.2_work_ENSEMBLES/modeles/LMDZ/tools/Max_diff_nc_with_lib/NR_util/vabs.f90 @ 5477

Last change on this file since 5477 was 5477, checked in by aclsce, 4 years ago
  • Created CONFIG_DEVT directory
  • First import of LMDZOR_V6.2_work_ENSEMBLES working configuration
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.