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

NCAR · Dec 11, 2024 · 0d3058d · 0d3058d
1 parent a495c52
commit 0d3058d
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/physics/MP/GFDL/module_gfdl_cloud_microphys.F90 b/physics/MP/GFDL/module_gfdl_cloud_microphys.F90
@@ -57,7 +57,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