Ignore:
Timestamp:
Dec 10, 2018 1:25:22 PM (3 years ago)
Author:
eckhard
Message:

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

Location:
palm/trunk/UTIL/inifor/tests
Files:
10 edited

Legend:

Unmodified
Added
Removed
  • palm/trunk/UTIL/inifor/tests/Makefile

    r2718 r3618  
    2525# -----------------
    2626# $Id$
     27# Prefixed INIFOR modules with inifor_
     28#
     29#
     30# 2718 2018-01-02 08:49:38Z maronga
    2731# Initial revision
    2832#
     
    4347TESTS    = $(patsubst %.f90,%,$(wildcard test-*.f90))
    4448
    45 MODULES = util.mod $(SRC_PATH)/defs.mod $(SRC_PATH)/control.mod $(SRC_PATH)/util.mod $(SRC_PATH)/types.mod $(SRC_PATH)/transform.mod $(SRC_PATH)/io.mod $(SRC_PATH)/grid.mod
     49MODULES = util.mod $(SRC_PATH)/inifor_defs.mod $(SRC_PATH)/inifor_control.mod $(SRC_PATH)/inifor_util.mod $(SRC_PATH)/inifor_types.mod $(SRC_PATH)/inifor_transform.mod $(SRC_PATH)/inifor_io.mod $(SRC_PATH)/inifor_grid.mod
    4650SOURCES = $(MODULES:%.mod=%.f90)
    4751OBJECTS = $(SOURCES:%.f90=%.o)
  • palm/trunk/UTIL/inifor/tests/Makefile.gnu

    r2718 r3618  
    2525# -----------------
    2626# $Id$
     27# Prefixed INIFOR modules with inifor_
     28#
     29#
     30# 2718 2018-01-02 08:49:38Z maronga
    2731# Initial revision
    2832#
     
    4448TESTS    = $(patsubst %.f90,%,$(wildcard test-*.f90))
    4549
    46 MODULES = util.mod $(SRC_PATH)/defs.mod $(SRC_PATH)/control.mod $(SRC_PATH)/util.mod $(SRC_PATH)/types.mod $(SRC_PATH)/transform.mod $(SRC_PATH)/io.mod $(SRC_PATH)/grid.mod
     50MODULES = util.mod $(SRC_PATH)/inifor_defs.mod $(SRC_PATH)/inifor_control.mod $(SRC_PATH)/inifor_util.mod $(SRC_PATH)/inifor_types.mod $(SRC_PATH)/inifor_transform.mod $(SRC_PATH)/inifor_io.mod $(SRC_PATH)/inifor_grid.mod
    4751SOURCES = $(MODULES:%.mod=%.f90)
    4852OBJECTS = $(SOURCES:%.f90=%.o)
  • palm/trunk/UTIL/inifor/tests/Makefile.ifort

    r2718 r3618  
    2525# -----------------
    2626# $Id$
     27# Prefixed INIFOR modules with inifor_
     28#
     29#
     30# 2718 2018-01-02 08:49:38Z maronga
    2731# Initial revision
    2832#
     
    4448TESTS    = $(patsubst %.f90,%,$(wildcard test-*.f90))
    4549
    46 MODULES = util.mod $(SRC_PATH)/defs.mod $(SRC_PATH)/control.mod $(SRC_PATH)/util.mod $(SRC_PATH)/types.mod $(SRC_PATH)/transform.mod $(SRC_PATH)/io.mod $(SRC_PATH)/grid.mod
     50MODULES = util.mod $(SRC_PATH)/inifor_defs.mod $(SRC_PATH)/inifor_control.mod $(SRC_PATH)/inifor_util.mod $(SRC_PATH)/inifor_types.mod $(SRC_PATH)/inifor_transform.mod $(SRC_PATH)/inifor_io.mod $(SRC_PATH)/inifor_grid.mod
    4751SOURCES = $(MODULES:%.mod=%.f90)
    4852OBJECTS = $(SOURCES:%.f90=%.o)
  • palm/trunk/UTIL/inifor/tests/test-boundaries.f90

    r3183 r3618  
    2626! -----------------
    2727! $Id$
     28! Prefixed all INIFOR modules with inifor_
     29!
     30!
     31! 3183 2018-07-27 14:25:55Z suehring
    2832! Updated test for new PALM grid strechting
    2933!
     
    4549 PROGRAM test_boundaries
    4650
    47     USE grid, ONLY  :  init_grid_definition
    48     USE types, ONLY :  grid_definition
     51    USE inifor_grid,                                                           &
     52        ONLY  :  init_grid_definition
     53    USE inifor_types,                                                          &
     54        ONLY :  grid_definition
    4955    USE test_utils
    5056   
  • palm/trunk/UTIL/inifor/tests/test-centre-velocities.f90

    r2718 r3618  
    2626! -----------------
    2727! $Id$
     28! Prefixed all INIFOR modules with inifor_
     29!
     30!
     31! 2718 2018-01-02 08:49:38Z maronga
    2832! Initial revision
    2933!
     
    4044 PROGRAM test_centre_velocities
    4145
     46    USE inifor_transform,                                                      &
     47        ONLY :  centre_velocities
    4248    USE test_utils
    43     USE transform, &
    44         ONLY :  centre_velocities
    4549   
    4650    IMPLICIT NONE
  • palm/trunk/UTIL/inifor/tests/test-grid.f90

    r3183 r3618  
    2626! -----------------
    2727! $Id$
     28! Prefixed all INIFOR modules with inifor_
     29!
     30!
     31! 3183 2018-07-27 14:25:55Z suehring
    2832! Updated test for new PALM grid strechting
    2933!
     
    4549 PROGRAM test_grid
    4650
    47     USE grid, ONLY :  grid_definition, init_grid_definition, dx, dy, dz
     51    USE inifor_grid,                                                           &
     52        ONLY :  grid_definition, init_grid_definition, dx, dy, dz
    4853    USE test_utils
    4954   
  • palm/trunk/UTIL/inifor/tests/test-input-files.f90

    r3183 r3618  
    2626! -----------------
    2727! $Id$
     28! Prefixed all INIFOR modules with inifor_
     29!
     30!
     31! 3183 2018-07-27 14:25:55Z suehring
    2832! New test for negative start_hour and greater-than-one step_hour
    2933!
     
    4549 PROGRAM test_input_files
    4650
    47     USE defs,                                                                  &
     51    USE inifor_defs,                                                           &
    4852        ONLY :  PATH
    49     USE grid,                                                                  &
     53    USE inifor_grid,                                                           &
    5054        ONLY :  get_input_file_list
    5155    USE test_utils
  • palm/trunk/UTIL/inifor/tests/test-interpolation.f90

    r3183 r3618  
    2626! -----------------
    2727! $Id$
     28! Prefixed all INIFOR modules with inifor_
     29!
     30!
     31! 3183 2018-07-27 14:25:55Z suehring
    2832! Updated test for new grid_definition
    2933!
     
    4448 PROGRAM test_interpolation
    4549
    46     USE grid, &
    47         ONLY:  grid_definition, init_grid_definition, TO_RADIANS, TO_DEGREES, &
     50    USE inifor_grid,                                                          &
     51        ONLY:  grid_definition, init_grid_definition, TO_RADIANS, TO_DEGREES,  &
    4852               linspace, hhl
    49     USE transform, &
     53    USE inifor_transform,                                                      &
    5054        ONLY:  find_horizontal_neighbours, compute_horizontal_interp_weights
    5155    USE test_utils
  • palm/trunk/UTIL/inifor/tests/test-stretching.f90

    r3396 r3618  
    2626! -----------------
    2727! $Id$
     28! Prefixed all INIFOR modules with inifor_
     29!
     30!
     31!
    2832! Initial revision
    2933!
     
    4347 PROGRAM test_stretching
    4448
    45     USE defs, &
     49    USE inifor_defs,                                                          &
    4650        ONLY :  dp
    4751
    48     USE grid, &
     52    USE inifor_grid,                                                          &
    4953        ONLY :  stretched_z
    5054
  • palm/trunk/UTIL/inifor/tests/test-transform.f90

    r2718 r3618  
    2626! -----------------
    2727! $Id$
     28! Prefixed all modules with inifor_
     29!
     30!
     31! 2718 2018-01-02 08:49:38Z maronga
    2832! Initial revision
    2933!
     
    4044 PROGRAM test_transform
    4145
    42     USE defs, ONLY :  TO_RADIANS, TO_DEGREES
    43     USE grid, ONLY :  grid_definition, init_grid_definition
    44     USE transform, ONLY :  phi2phirot, rla2rlarot, phirot2phi, rlarot2rla
     46    USE inifor_defs,                                                           &
     47        ONLY :  TO_RADIANS, TO_DEGREES
     48    USE inifor_grid,                                                           &
     49        ONLY :  grid_definition, init_grid_definition
     50    USE inifor_transform,                                                      &
     51        ONLY :  phi2phirot, rla2rlarot, phirot2phi, rlarot2rla
    4552    USE test_utils
    4653   
     
    6875    lambda_c  = rla2rlarot(phi,   lambda, phi_n, lambda_n, 0.)
    6976
    70     phi2      = phirot2phi(phi_c, lambda_c, phi_n, lambda_n, 0.)
     77    phi2      = phirot2phi(phi_c, lambda_c, phi_n, 0.)
    7178    lambda2   = rlarot2rla(phi_c, lambda_c, phi_n, lambda_n, 0.)
    7279
     
    9198    lambda_c  = rla2rlarot(phi,   lambda, phi_n, lambda_n, 0.)
    9299
    93     phi2      = phirot2phi(phi_c, lambda_c, phi_n, lambda_n, 0.)
     100    phi2      = phirot2phi(phi_c, lambda_c, phi_n, 0.)
    94101    lambda2   = rlarot2rla(phi_c, lambda_c, phi_n, lambda_n, 0.)
    95102
Note: See TracChangeset for help on using the changeset viewer.