Changeset 3618 for palm/trunk/UTIL/inifor/tests/test-transform.f90

Timestamp:

Dec 10, 2018 1:25:22 PM (5 years ago)

Author:

eckhard

Message:

inifor: Prefixed all INIFOR modules with inifor_ and removed unused variables

File:

• palm/trunk/UTIL/inifor/tests/test-transform.f90 (modified) (4 diffs)

palm/trunk/UTIL/inifor/tests/test-transform.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Prefixed all modules with inifor_
+! 
+! 
+! 2718 2018-01-02 08:49:38Z maronga
 ! Initial revision
 !
@@ -40 +44 @@
  PROGRAM test_transform
 
-    USE defs, ONLY :  TO_RADIANS, TO_DEGREES
-    USE grid, ONLY :  grid_definition, init_grid_definition
-    USE transform, ONLY :  phi2phirot, rla2rlarot, phirot2phi, rlarot2rla
+    USE inifor_defs,                                                           &
+        ONLY :  TO_RADIANS, TO_DEGREES
+    USE inifor_grid,                                                           &
+        ONLY :  grid_definition, init_grid_definition
+    USE inifor_transform,                                                      &
+        ONLY :  phi2phirot, rla2rlarot, phirot2phi, rlarot2rla
     USE test_utils
     
@@ -68 +75 @@
     lambda_c  = rla2rlarot(phi,   lambda, phi_n, lambda_n, 0.)
 
-    phi2      = phirot2phi(phi_c, lambda_c, phi_n, lambda_n, 0.)
+    phi2      = phirot2phi(phi_c, lambda_c, phi_n, 0.)
     lambda2   = rlarot2rla(phi_c, lambda_c, phi_n, lambda_n, 0.)
 
@@ -91 +98 @@
     lambda_c  = rla2rlarot(phi,   lambda, phi_n, lambda_n, 0.)
 
-    phi2      = phirot2phi(phi_c, lambda_c, phi_n, lambda_n, 0.)
+    phi2      = phirot2phi(phi_c, lambda_c, phi_n, 0.)
     lambda2   = rlarot2rla(phi_c, lambda_c, phi_n, lambda_n, 0.)