Changeset 1718
- Timestamp:
- 08/17/09 11:21:09 (15 years ago)
- Location:
- issm/trunk/src/m/solutions/ice
- Files:
-
- 4 edited
Legend:
- Unmodified
- Added
- Removed
-
issm/trunk/src/m/solutions/ice/prognostic.m
r1680 r1718 52 52 %inputs=struct('thickness',thickness,'melting',melting,'accumulation',accumulation,... 53 53 %'surface_vertical_velocity',ws,'basal_vertical_velocity',wb,'dt',md.dt,'velocity_average',velocity_average); 54 inputs=struct('thickness',thickness,'melting',melting,'accumulation',accumulation,'dt',md.dt ,'velocity_average',velocity_average);54 inputs=struct('thickness',thickness,'melting',melting,'accumulation',accumulation,'dt',md.dt*md.yts,'velocity_average',velocity_average); 55 55 56 56 %Run core solution -
issm/trunk/src/m/solutions/ice/thermal.m
r1680 r1718 33 33 disp(' computing temperature...'); 34 34 gridset=m_t.gridset; 35 inputs=struct('pressure',pressure,'velocity',velocity,'dt',md.dt );35 inputs=struct('pressure',pressure,'velocity',velocity,'dt',md.dt*md.yts); 36 36 [t_g m_t.loads_t melting_offset]=thermal_core(m_t,analysis_type,inputs); 37 37 … … 65 65 66 66 soln(n+1).time=(n)*md.dt; 67 disp(sprintf('\n%s%i/%i\n','time step: ',n, md.ndt/md.dt));67 disp(sprintf('\n%s%i/%i\n','time step: ',n,floor(md.ndt/md.dt))); 68 68 69 69 %Call core thermal computation 70 70 disp(' computing temperature...'); 71 71 gridset=m_t.gridset; 72 inputs=struct('pressure',pressure,'temperature',soln(n).t_g,'velocity',velocity,'dt',md.dt );72 inputs=struct('pressure',pressure,'temperature',soln(n).t_g,'velocity',velocity,'dt',md.dt*md.yts); 73 73 [soln(n+1).t_g m_t.loads melting_offset]=thermal_core(m_t,analysis_type,inputs); 74 74 … … 76 76 disp(' computing melting...'); 77 77 gridset=m_m.gridset; 78 inputs=struct('pressure',pressure,'temperature',soln(n+1).t_g,'melting_offset',melting_offset,'dt',md.dt );78 inputs=struct('pressure',pressure,'temperature',soln(n+1).t_g,'melting_offset',melting_offset,'dt',md.dt*md.yts); 79 79 soln(n+1).m_g=melting_core(m_m,analysis_type,inputs); 80 80 -
issm/trunk/src/m/solutions/ice/transient2d.m
r1680 r1718 46 46 fem.inputs.accumulation=accumulation; 47 47 fem.inputs.melting=melting; 48 fem.inputs.dt=md.dt ;48 fem.inputs.dt=md.dt*md.yts; 49 49 50 50 %first time step is given by model. … … 56 56 while time<finaltime+dt, %make sure we run up to finaltime. 57 57 58 disp(sprintf('\n%s%g%s%g%s%g\n','time [yr]: ',time /md.yts,' iteration number: ',n,'/',floor(finaltime/dt)));58 disp(sprintf('\n%s%g%s%g%s%g\n','time [yr]: ',time,' iteration number: ',n,'/',floor(finaltime/dt))); 59 59 60 60 solution(n+1).time=time; -
issm/trunk/src/m/solutions/ice/transient3d.m
r1680 r1718 63 63 fem.inputs.melting=zeros(fem.m_m.gridset.gsize,1); melting=ShiftLayers(md,md.melting,1,1); fem.inputs.melting(1:6:fem.m_m.gridset.gsize)=melting; 64 64 fem.inputs.accumulation=zeros(fem.m_m.gridset.gsize,1); accumulation=ShiftLayers(md,md.accumulation,md.numlayers,1); fem.inputs.accumulation(1:6:fem.m_m.gridset.gsize)=accumulation; 65 fem.inputs.dt=md.dt ;65 fem.inputs.dt=md.dt*md.yts; 66 66 67 67 %first time step is given by model. … … 73 73 while time<finaltime+dt, %make sure we run up to finaltime. 74 74 75 disp(sprintf('\n%s%g%s%g%s%g\n','time [yr]: ',time /md.yts,' iteration number: ',n,'/',floor(finaltime/dt)));75 disp(sprintf('\n%s%g%s%g%s%g\n','time [yr]: ',time,' iteration number: ',n,'/',floor(finaltime/dt))); 76 76 77 77 solution(n+1).time=time;
Note:
See TracChangeset
for help on using the changeset viewer.