Merge pull request #73 from NCAR/fix-test

Remove test code for debugging and formatted spacing
NCAR · Mar 18, 2024 · 3866028 · 3866028
2 parents 3362575 + 3417f1e
commit 3866028
Show file tree

Hide file tree

Showing 3 changed files with 13 additions and 21 deletions.
diff --git a/fortran/micm_core.F90 b/fortran/micm_core.F90
@@ -10,8 +10,8 @@ module micm_core
       function create_micm_c(config_path, error_code) bind(C, name="create_micm")
          import c_ptr, c_int, c_char
          character(kind=c_char), intent(in) :: config_path(*)
-         integer(kind=c_int), intent(out) :: error_code
-         type(c_ptr) :: create_micm_c
+         integer(kind=c_int), intent(out)   :: error_code
+         type(c_ptr)                        :: create_micm_c
       end function create_micm_c
 
       subroutine delete_micm_c(micm) bind(C, name="delete_micm")
@@ -21,12 +21,12 @@ end subroutine delete_micm_c
 
       subroutine micm_solve_c(micm, time_step, temperature, pressure, num_concentrations, concentrations) bind(C, name="micm_solve")
          import c_ptr, c_double, c_int
-         type(c_ptr), value, intent(in) :: micm
+         type(c_ptr), value, intent(in)         :: micm
          real(kind=c_double), value, intent(in) :: time_step
          real(kind=c_double), value, intent(in) :: temperature
          real(kind=c_double), value, intent(in) :: pressure
          integer(kind=c_int), value, intent(in) :: num_concentrations
-         real(kind=c_double), intent(inout) :: concentrations(num_concentrations)
+         real(kind=c_double), intent(inout)     :: concentrations(num_concentrations)
       end subroutine micm_solve_c
    end interface
 
@@ -47,7 +47,7 @@ end subroutine micm_solve_c
 contains
 
    function constructor(config_path, errcode)  result( this )
-      type(micm_t), pointer        :: this
+      type(micm_t), pointer         :: this
       character(len=*), intent(in)  :: config_path
       integer, intent(out)          :: errcode
       character(len=1, kind=c_char) :: c_config_path(len_trim(config_path)+1)
@@ -69,17 +69,17 @@ function constructor(config_path, errcode)  result( this )
    end function constructor
 
    subroutine solve(this, time_step, temperature, pressure, num_concentrations, concentrations)
-      class(micm_t)      :: this
-      real(c_double), intent(in)     :: time_step
-      real(c_double), intent(in)     :: temperature
-      real(c_double), intent(in)     :: pressure
-      integer(c_int), intent(in)     :: num_concentrations
-      real(c_double), intent(inout)  :: concentrations(*)
+      class(micm_t)                 :: this
+      real(c_double), intent(in)    :: time_step
+      real(c_double), intent(in)    :: temperature
+      real(c_double), intent(in)    :: pressure
+      integer(c_int), intent(in)    :: num_concentrations
+      real(c_double), intent(inout) :: concentrations(*)
       call micm_solve_c(this%ptr, time_step, temperature, pressure, num_concentrations, concentrations)
    end subroutine solve
 
    subroutine finalize(this)
-      type(micm_t), intent(inout)  :: this
+      type(micm_t), intent(inout) :: this
       call delete_micm_c(this%ptr)
    end subroutine finalize
 

diff --git a/fortran/test/fetch_content_integration/CMakeLists.txt b/fortran/test/fetch_content_integration/CMakeLists.txt
@@ -11,7 +11,7 @@ include(FetchContent)
 
 FetchContent_Declare(musica-fortran
   GIT_REPOSITORY https://github.com/NCAR/musica.git
-  GIT_TAG        reorganize
+  GIT_TAG        main
 )
 
 set(MUSICA_BUILD_C_CXX_INTERFACE OFF)

diff --git a/fortran/test/fetch_content_integration/test_micm_fort_api.F90 b/fortran/test/fetch_content_integration/test_micm_fort_api.F90
@@ -35,14 +35,6 @@ program test_micm_fort_api
 
   write(*,*) "[test micm fort api] After solving, concentrations", concentrations
 
-  call micm%solve(time_step, temperature, pressure, num_concentrations, concentrations)
-
-  write(*,*) "[test micm fort api] After solving, concentrations222", concentrations
-
-  call micm%solve(time_step, temperature, pressure, num_concentrations, concentrations)
-
-  write(*,*) "[test micm fort api] After solving, concentrations333", concentrations
-
   write(*,*) "[test micm fort api] Finished."
 
 end program