Fix 'Warning: CHARACTER expression will be truncated in assignment'

NCAR · Jan 17, 2024 · 26c0005 · 26c0005
1 parent 4294ddd
commit 26c0005
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/module_gfdl_cloud_microphys.F90 b/physics/module_gfdl_cloud_microphys.F90
@@ -56,7 +56,7 @@ module gfdl_cloud_microphys_mod
    logical :: module_is_initialized = .false.
    logical :: qsmith_tables_initialized = .false.
 
-   character (len = 17) :: mod_name = 'gfdl_cloud_microphys'
+   character (len = 20) :: mod_name = 'gfdl_cloud_microphys'
 
    real, parameter :: n0r = 8.0e6, n0s = 3.0e6, n0g = 4.0e6
    real, parameter :: rhos = 0.1e3, rhog = 0.4e3