/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine_mpatch/adjust_calc_fncval_helm_test_mpt.f90
Go to the documentation of this file.00001 subroutine adjust_calc_fncval_helm_test_mpt(niq,msec_f_oold) 00002 use phys_constant, only : long, nmpt 00003 use def_quantities, only : admmom_asymp 00004 implicit none 00005 integer :: niq 00006 real(long) :: msec_f_oold(niq) 00007 ! 00008 call copy_def_quantities_from_mpt(nmpt) 00009 !xpsi msec_f_oold(1) = admmom_asymp(1) 00010 msec_f_oold(1) = admmom_asymp(2) 00011 ! 00012 end subroutine adjust_calc_fncval_helm_test_mpt
