source: lmdz_wrf/trunk/tools/__test_Fmods.f90__ @ 2549

Last change on this file since 2549 was 2405, checked in by lfita, 7 years ago

Chaning name of test programs in order to make obilgatory to make a copy of them
Adding test_Fmods.f90 into trueno's Makefile
File size: 1.2 KB
Line 
1! PyNCplot. script to comput diagnostics
2! From L. Fita work in different places CCRC (Australia), LMD (France)
3! More information at: http://www.xn--llusfb-5va.cat/python/PyNCplot
4!
5! pyNCplot and its component nc_var.py comes with ABSOLUTELY NO WARRANTY.
6! This work is licendes under a Creative Commons
7!   Attribution-ShareAlike 4.0 International License (http://creativecommons.org/licenses/by-sa/4.0)
8!
9! L. Fita, CIMA. CONICET-UBA, CNRS UMI-IFAECI, C.A. Buenos Aires, Argentina
10!!!
11! Fortran program to allow to test the Fortran modules
12PROGRAM test_Fmods
13
14  USE module_definitions
15  USE module_basic
16  USE module_generic
17  USE module_scientific
18  USE module_ForDiagnostics
19  USE module_ForDiagnosticsVars
20
21  IMPLICIT NONE
22
23  INTEGER                                                :: i, j
24  INTEGER                                                :: dimx, dimy
25  REAL(r_k)                                              :: valRKa, valRKb, valRKc
26!  REAL(r_k)                                              :: var_tws_S11
27
28! Test tws
29  valRKa = 20. + SVPT0
30  valRKb = 0.5
31  valRKc = var_tws_S11(valRKa,valRKb)
32
33  PRINT *,'tws:', valRKc
34  CALL Svar_tws_S11(valRKa,valRKb,valRKc)
35  PRINT *,'tws:', valRKc
36
37
38END PROGRAM test_Fmods
Note: See TracBrowser for help on using the repository browser.