223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

messed up the parameter list of TimeIntegration with the last submit

This commit is contained in:
Franz Roters 2008-07-15 08:32:44 +00:00
parent 4773cf7d09
commit 7a7a5d2ae3
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
trunk/crystallite.f90
View File

@ -97,7 +97,7 @@ CONTAINS
endif endif
!!$OMP CRITICAL (timeint) !!$OMP CRITICAL (timeint)
call TimeIntegration(msg,Lp,Fp_new,Fe_new,P,state_new,post_results,.true., & ! def gradients and PK2 at end of time step call TimeIntegration(msg,Lp,Fp_new,Fe_new,P,state_new,post_results,.true., & ! def gradients and PK2 at end of time step
dt_aim,cp_en,ip,grain,Temperature,Fg_old,Fg_aim,state_current) dt_aim,cp_en,ip,grain,Temperature,Fg_aim,Fp_current,state_current)
!!$OMP END CRITICAL (timeint) !!$OMP END CRITICAL (timeint)
! !
if (msg == 'ok') then if (msg == 'ok') then
@ -149,7 +149,7 @@ CONTAINS
state_pert = state_new ! initial guess from end of time step state_pert = state_new ! initial guess from end of time step
!!$OMP CRITICAL (timeint) !!$OMP CRITICAL (timeint)
call TimeIntegration(msg,Lp_pert,Fp_pert,Fe_pert,P_pert,state_pert,post_results,.false., & ! def gradients and PK2 at end of time step call TimeIntegration(msg,Lp_pert,Fp_pert,Fe_pert,P_pert,state_pert,post_results,.false., & ! def gradients and PK2 at end of time step
dt_aim,cp_en,ip,grain,Temperature,Fg_old,Fg_pert,state_current) dt_aim,cp_en,ip,grain,Temperature,Fg_pert, Fp_current,state_current)
!!$OMP END CRITICAL (timeint) !!$OMP END CRITICAL (timeint)
!!$OMP CRITICAL (write2out) !!$OMP CRITICAL (write2out)
! if(cp_en==61 .and. ip==1) then ! if(cp_en==61 .and. ip==1) then