Changeset 3618 for palm/trunk/UTIL/inifor/src/inifor_transform.f90

Timestamp:

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

Author:

eckhard

Message:

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

File:

• palm/trunk/UTIL/inifor/src/inifor_transform.f90 (modified) (5 diffs)

palm/trunk/UTIL/inifor/src/inifor_transform.f90

@@ -26 +26 @@
 ! -----------------
 ! $Id$
+! Prefixed all INIFOR modules with inifor_, removed unused variables
+! 
+! 
+! 3615 2018-12-10 07:21:03Z raasch
 ! bugfix: abort replaced by inifor_abort
 ! 
@@ -76 +80 @@
 !> int2lm's utility routines.
 !------------------------------------------------------------------------------!
- MODULE transform
-
-    USE control
-    USE defs,                                                                  &
+ MODULE inifor_transform
+
+    USE inifor_control
+    USE inifor_defs,                                                           &
         ONLY: G, TO_DEGREES, TO_RADIANS, PI, dp
-    USE types
-    USE util,                                                                  &       
+    USE inifor_types
+    USE inifor_util,                                                           &
         ONLY: real_to_str, str
 
@@ -622 +626 @@
                                    lamr(i) * TO_DEGREES,                       &
                                    phip * TO_DEGREES,                          &
-                                   lamp * TO_DEGREES,                          &
                                    gam  * TO_DEGREES) * TO_RADIANS
 
@@ -1162 +1165 @@
 !> Compute the geographical latitude of a point given in rotated-pole cordinates
 !------------------------------------------------------------------------------!
-    FUNCTION phirot2phi (phirot, rlarot, polphi, pollam, polgam)
+    FUNCTION phirot2phi (phirot, rlarot, polphi, polgam)
     
        REAL(dp), INTENT (IN) ::  polphi      !< latitude of the rotated north pole
-       REAL(dp), INTENT (IN) ::  pollam      !< longitude of the rotated north pole
        REAL(dp), INTENT (IN) ::  phirot      !< latitude in the rotated system
        REAL(dp), INTENT (IN) ::  rlarot      !< longitude in the rotated system
@@ -1396 +1398 @@
     END SUBROUTINE uvrot2uv
 
- END MODULE
-
+ END MODULE inifor_transform
+