From 7a7a5d2ae325666a30b912e539bd34280b6d5a89 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Tue, 15 Jul 2008 08:32:44 +0000 Subject: [PATCH] messed up the parameter list of TimeIntegration with the last submit --- trunk/crystallite.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/trunk/crystallite.f90 b/trunk/crystallite.f90 index 1d9c71b03..72fe87d80 100644 --- a/trunk/crystallite.f90 +++ b/trunk/crystallite.f90 @@ -97,7 +97,7 @@ CONTAINS endif !!$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 - 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) ! if (msg == 'ok') then @@ -149,7 +149,7 @@ CONTAINS state_pert = state_new ! initial guess from end of time step !!$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 - 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 CRITICAL (write2out) ! if(cp_en==61 .and. ip==1) then