Fix len for set_cloud_fraction_top interstitial scheme

ESCOMP · Feb 21, 2025 · 03ab036 · 03ab036
1 parent 7dcf8b9
commit 03ab036
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/schemes/cloud_fraction/set_cloud_fraction_top.F90 b/schemes/cloud_fraction/set_cloud_fraction_top.F90
@@ -14,10 +14,10 @@ module set_cloud_fraction_top
 !> \section arg_table_set_cloud_fraction_top_init Argument Table
 !! \htmlinclude set_cloud_fraction_top_init.html
   subroutine set_cloud_fraction_top_init(trop_cloud_top_lev, top_lev, errmsg, errflg)
-    integer, intent(in)  :: trop_cloud_top_lev ! Troposphere cloud physics top level [index]
-    integer, intent(out) :: top_lev            ! Cloud fraction top level [index]
-    character(len=*), intent(out) :: errmsg    ! Error message
-    integer,          intent(out) :: errflg    ! Error flag
+    integer,            intent(in)  :: trop_cloud_top_lev ! Troposphere cloud physics top level [index]
+    integer,            intent(out) :: top_lev            ! Cloud fraction top level [index]
+    character(len=512), intent(out) :: errmsg             ! Error message
+    integer,            intent(out) :: errflg             ! Error flag
 
     ! Initialize error handling
     errmsg = ''