Cleaned up/improved spinup steady-state thermal calculation option; Added...

Cleaned up/improved spinup steady-state thermal calculation option; Added option to fix all surfaces in spinup phase; Added option to fix cloud during spinup phase; Added option for spinup convergence tolerance; Added identification of first time step/iteration/nonlinear iteration; Added option for using spinup phase material numbers

src/module_definitions.f90

@@ -26,7 +26,7 @@ module definitions
       type sheet
       integer nsurface,nt
       double precision,dimension(:),pointer::r,s,x,y,z,xn,yn,zn,u,v,w
-      integer levelt,itype,material,surface_type,closed
+      integer levelt,itype,material_spinup,material,surface_type,closed
       double precision :: sp01,sp02,sp03,sp04,sp05,sp06,sp07,sp08,sp09,sp10,sp11
       double precision :: sp12,sp13,sp14,activation_time
       integer,dimension(:,:),pointer::icon
@@ -235,6 +235,13 @@ module definitions
       logical nest
       logical damp_surface
       logical remove_surf_pts
+      logical sstemp_spinup
+      logical in_spinup
+      logical first_step
+      logical first_iter
+      logical first_nliter
+      logical all_surf_fixed_spinup
+      logical fixed_cloud_spinup
       integer nmpi
       integer matrule
       integer levelcut
@@ -283,6 +290,8 @@ module definitions
       double precision octree_refine_ratio
       double precision distance_exponent
       double precision tol
+      double precision tol_main
+      double precision tol_spinup
       double precision penalty
       double precision tempscale
       double precision zerosion
@@ -298,6 +307,7 @@ module definitions
       double precision pressure0
       double precision damp_factor
       double precision domvol
+      double precision sstemp_viscosity_spinup
       character*128 restartfile
       character*40  infile
    end type