make updater pointer public (#100)

NCAR · Jul 2, 2024 · 80f896a · 80f896a
1 parent a4c6750
commit 80f896a
Show file tree

Hide file tree

Showing 3 changed files with 0 additions and 9 deletions.
diff --git a/src/grids/from_host.F90 b/src/grids/from_host.F90
@@ -24,9 +24,6 @@ module tuvx_grid_from_host
   end interface grid_from_host_t
 
   type :: grid_updater_t
-#ifndef MUSICA_IS_NAG_COMPILER
-    private
-#endif
     ! updater for `grid_from_host_t` grids
     class(grid_from_host_t), pointer :: grid_ => null( )
   contains

diff --git a/src/profiles/from_host.F90 b/src/profiles/from_host.F90
@@ -24,9 +24,6 @@ module tuvx_profile_from_host
   end interface profile_from_host_t
 
   type :: profile_updater_t
-#ifndef MUSICA_IS_NAG_COMPILER
-    private
-#endif
     ! updater for `profile_from_host_t` profiles
     class(profile_from_host_t), pointer :: profile_ => null( )
   contains

diff --git a/src/radiative_transfer/radiators/from_host.F90 b/src/radiative_transfer/radiators/from_host.F90
@@ -26,9 +26,6 @@ module tuvx_radiator_from_host
   end interface radiator_from_host_t
 
   type :: radiator_updater_t
-#ifndef MUSICA_IS_NAG_COMPILER
-    private
-#endif
     ! updater for `radiator_from_host_t` radiators
     class(radiator_from_host_t), pointer :: radiator_ => null( )
   contains