source: lmdz_wrf/trunk/tools/test_Fmods.f90 @ 2404

! PyNCplot. script to comput diagnostics
! From L. Fita work in different places CCRC (Australia), LMD (France)
! More information at: http://www.xn--llusfb-5va.cat/python/PyNCplot
!
! pyNCplot and its component nc_var.py comes with ABSOLUTELY NO WARRANTY. 
! This work is licendes under a Creative Commons 
!   Attribution-ShareAlike 4.0 International License (http://creativecommons.org/licenses/by-sa/4.0)
!
! L. Fita, CIMA. CONICET-UBA, CNRS UMI-IFAECI, C.A. Buenos Aires, Argentina
!!!
! Fortran program to allow to test the Fortran modules
PROGRAM test_Fmods

  USE module_definitions
  USE module_basic
  USE module_generic
  USE module_scientific
  USE module_ForDiagnostics
  USE module_ForDiagnosticsVars

  IMPLICIT NONE

  INTEGER                                                :: i, j
  INTEGER                                                :: dimx, dimy
  REAL(r_k)                                              :: valRKa, valRKb, valRKc
!  REAL(r_k)                                              :: var_tws_S11

! Test tws
  valRKa = 20. + SVPT0
  valRKb = 0.5
  valRKc = var_tws_S11(valRKa,valRKb)

  PRINT *,'tws:', valRKc
  CALL Svar_tws_S11(valRKa,valRKb,valRKc)
  PRINT *,'tws:', valRKc


END PROGRAM test_Fmods