From 80f896a0fb591987c2a79209377bd6f599b4fb6f Mon Sep 17 00:00:00 2001
From: Matt Dawson <mattdawson@ucar.edu>
Date: Tue, 2 Jul 2024 14:38:49 -0700
Subject: [PATCH] make updater pointer public (#100)

---
 src/grids/from_host.F90                        | 3 ---
 src/profiles/from_host.F90                     | 3 ---
 src/radiative_transfer/radiators/from_host.F90 | 3 ---
 3 files changed, 9 deletions(-)

diff --git a/src/grids/from_host.F90 b/src/grids/from_host.F90
index 791be76d..42e52241 100644
--- 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
index 1144217a..578c7195 100644
--- 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
index 828497f8..541abc86 100644
--- 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