Skip to content

Adding a slash for coefficient path #252

New issue

Have a question about this project? Sign up for a free GitHub account to open an issue and contact its maintainers and the community.

Sign up for GitHub

By clicking “Sign up for GitHub”, you agree to our terms of service and privacy statement. We’ll occasionally send you account related emails.

Already on GitHub? Sign in to your account

Merged
BenjaminTJohnson merged 1 commit into from
Nov 6, 2025
Merged

Adding a slash for coefficient path #252

Changes from all commits
Commits
Show all changes
1 commit
Select commit
File filter

Filter by extension

Filter by extension
Conversations
Failed to load comments.
Loading
Jump to
Jump to file
Failed to load files.
Loading
Diff view
Diff view
64 changes: 32 additions & 32 deletions src/Coefficients/CRTM_SpcCoeff.f90
View file
Open in desktop
Original file line number Diff line number Diff line change
Expand Up @@ -2,7 +2,7 @@
! CRTM_SpcCoeff
!
! Module containing the shared CRTM spectral coefficients (SpcCoeff)
! and their load/destruction routines.
! and their load/destruction routines.
!
! PUBLIC DATA:
! SC: Data structure array containing the spectral coefficient
Expand Down Expand Up @@ -46,7 +46,7 @@ MODULE CRTM_SpcCoeff
LC_POLARIZATION , &
CONST_MIXED_POLARIZATION, &
PRA_POLARIZATION , &
POLARIZATION_TYPE_NAME
POLARIZATION_TYPE_NAME
USE SpcCoeff_Define , ONLY: SpcCoeff_type , &
SpcCoeff_Associated , &
SpcCoeff_Destroy , &
Expand All @@ -56,7 +56,7 @@ MODULE CRTM_SpcCoeff
SpcCoeff_IsInfraredSensor , &
SpcCoeff_IsVisibleSensor , &
SpcCoeff_IsUltravioletSensor
USE SpcCoeff_IO , ONLY: SpcCoeff_ReadFile
USE SpcCoeff_IO , ONLY: SpcCoeff_ReadFile
USE CRTM_Parameters , ONLY: CRTM_Set_Max_nChannels , &
CRTM_Reset_Max_nChannels
! Disable all implicit typing
Expand All @@ -76,32 +76,32 @@ MODULE CRTM_SpcCoeff
PUBLIC :: CRTM_SpcCoeff_IsLoaded
! Flag and sensor check procedures passed through from SpcCoeff_Define
PUBLIC :: SpcCoeff_IsSolar
PUBLIC :: SpcCoeff_IsZeeman
PUBLIC :: SpcCoeff_IsMicrowaveSensor
PUBLIC :: SpcCoeff_IsInfraredSensor
PUBLIC :: SpcCoeff_IsVisibleSensor
PUBLIC :: SpcCoeff_IsZeeman
PUBLIC :: SpcCoeff_IsMicrowaveSensor
PUBLIC :: SpcCoeff_IsInfraredSensor
PUBLIC :: SpcCoeff_IsVisibleSensor
PUBLIC :: SpcCoeff_IsUltravioletSensor
! Polarisation flag parameters passed through from SensorInfo_Parameters
PUBLIC :: N_POLARIZATION_TYPES
PUBLIC :: INVALID_POLARIZATION
PUBLIC :: UNPOLARIZED
PUBLIC :: INTENSITY
PUBLIC :: FIRST_STOKES_COMPONENT
PUBLIC :: N_POLARIZATION_TYPES
PUBLIC :: INVALID_POLARIZATION
PUBLIC :: UNPOLARIZED
PUBLIC :: INTENSITY
PUBLIC :: FIRST_STOKES_COMPONENT
PUBLIC :: SECOND_STOKES_COMPONENT
PUBLIC :: THIRD_STOKES_COMPONENT
PUBLIC :: THIRD_STOKES_COMPONENT
PUBLIC :: FOURTH_STOKES_COMPONENT
PUBLIC :: VL_POLARIZATION
PUBLIC :: HL_POLARIZATION
PUBLIC :: plus45L_POLARIZATION
PUBLIC :: minus45L_POLARIZATION
PUBLIC :: VL_MIXED_POLARIZATION
PUBLIC :: HL_MIXED_POLARIZATION
PUBLIC :: RC_POLARIZATION
PUBLIC :: LC_POLARIZATION
PUBLIC :: VL_POLARIZATION
PUBLIC :: HL_POLARIZATION
PUBLIC :: plus45L_POLARIZATION
PUBLIC :: minus45L_POLARIZATION
PUBLIC :: VL_MIXED_POLARIZATION
PUBLIC :: HL_MIXED_POLARIZATION
PUBLIC :: RC_POLARIZATION
PUBLIC :: LC_POLARIZATION
PUBLIC :: CONST_MIXED_POLARIZATION
PUBLIC :: PRA_POLARIZATION
PUBLIC :: POLARIZATION_TYPE_NAME


! -----------------
! Module parameters
Expand Down Expand Up @@ -133,7 +133,7 @@ MODULE CRTM_SpcCoeff
! Error_Status = CRTM_Load_SpcCoeff( &
! Sensor_ID , &
! File_Path = File_Path , &
! netCDF = netCDF , &
! netCDF = netCDF , &
! Quiet = Quiet , &
! Process_ID = Process_ID , &
! Output_Process_ID = Output_Process_ID )
Expand Down Expand Up @@ -189,7 +189,7 @@ MODULE CRTM_SpcCoeff
! Output_Process_ID: Set this argument to the MPI process ID in which
! all INFORMATION messages are to be output. If
! the passed Process_ID value agrees with this value
! the INFORMATION messages are output.
! the INFORMATION messages are output.
! This argument is ignored if the Quiet argument
! is set.
! UNITS: None
Expand All @@ -216,7 +216,7 @@ MODULE CRTM_SpcCoeff
FUNCTION CRTM_SpcCoeff_Load( &
Sensor_ID , & ! Input
File_Path , & ! Optional input
netCDF , & ! Optional input
netCDF , & ! Optional input
Quiet , & ! Optional input
Process_ID , & ! Optional input
Output_Process_ID) & ! Optional input
Expand All @@ -225,9 +225,9 @@ FUNCTION CRTM_SpcCoeff_Load( &
CHARACTER(*), INTENT(IN) :: Sensor_ID(:)
CHARACTER(*), OPTIONAL, INTENT(IN) :: File_Path
LOGICAL , OPTIONAL, INTENT(IN) :: netCDF
LOGICAL , OPTIONAL, INTENT(IN) :: Quiet
INTEGER , OPTIONAL, INTENT(IN) :: Process_ID
INTEGER , OPTIONAL, INTENT(IN) :: Output_Process_ID
LOGICAL , OPTIONAL, INTENT(IN) :: Quiet
INTEGER , OPTIONAL, INTENT(IN) :: Process_ID
INTEGER , OPTIONAL, INTENT(IN) :: Output_Process_ID
! Function result
INTEGER :: err_stat
! Local parameters
Expand All @@ -240,7 +240,7 @@ FUNCTION CRTM_SpcCoeff_Load( &
INTEGER :: alloc_stat
INTEGER :: n, n_sensors

! Setup
! Setup
err_stat = SUCCESS
! ...Check the File_Path argument
IF ( PRESENT(File_Path) ) THEN
Expand All @@ -262,7 +262,7 @@ FUNCTION CRTM_SpcCoeff_Load( &
pid_msg = ''
END IF


! Allocate the SpcCoeff shared data structure array
n_sensors = SIZE(Sensor_ID)
ALLOCATE( SC(n_sensors), STAT = alloc_stat )
Expand All @@ -275,10 +275,10 @@ FUNCTION CRTM_SpcCoeff_Load( &

! Read the SpcCoeff data files
DO n = 1, n_Sensors
spccoeff_file = TRIM(ADJUSTL(path))//TRIM(ADJUSTL(Sensor_ID(n)))//'.SpcCoeff.bin'
spccoeff_file = TRIM(ADJUSTL(path)) // '/' // TRIM(ADJUSTL(Sensor_ID(n))) // '.SpcCoeff.bin'
IF( PRESENT(netCDF) ) THEN
IF( netCDF ) THEN
spccoeff_file = TRIM(ADJUSTL(path))//TRIM(ADJUSTL(Sensor_ID(n)))//'.SpcCoeff.nc'
spccoeff_file = TRIM(ADJUSTL(path)) // '/' // TRIM(ADJUSTL(Sensor_ID(n))) // '.SpcCoeff.nc'
END IF
END IF
err_stat = SpcCoeff_ReadFile( &
Expand Down