Updated prt_guess.f90 to print ni and nr in stdout

azadeh-gh · May 9, 2024 · c24e568 · c24e568
1 parent 7623bac
commit c24e568
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/src/gsi/prt_guess.f90 b/src/gsi/prt_guess.f90
@@ -341,6 +341,7 @@ subroutine prt_guess2(sgrep)
 ! get pointer to cloud water condensate
   ier=0;nvarsc=0
   iql=0;iqi=0;iqr=0;iqs=0;iqg=0
+  ini=0;inr=0
   call gsi_metguess_get('clouds::3d',n_actual_clouds,ier)
   if (mype==0) write(6,*)'prt_guess2: n_actual_clouds = ', n_actual_clouds
   if (n_actual_clouds>0) then
@@ -387,7 +388,7 @@ subroutine prt_guess2(sgrep)
         if (ier==0) nvarsc=nvarsc+1
      endif
   end if
-  nvarsc=n_actual_clouds
+  !nvarsc=n_actual_clouds
   call gsi_metguess_get ( 'var::cf', ivar, ier ); icf=ivar
   if (ivar > 0) then
      call gsi_bundlegetpointer (gsi_metguess_bundle(ntsig),'cf',ges_cf_it,istatus)