/home/uryu/Cocal_svn_checkinout/Cocal/code/Subroutine/ap2alps.f90
Go to the documentation of this file.00001 subroutine ap2alps 00002 use grid_parameter, only : nrg, ntg, npg 00003 use def_metric, only : psi, alph, alps, alps2 00004 implicit none 00005 ! 00006 ! --- Prepareing alps and alps2 from alpha and psi. 00007 ! 00008 alps(0:nrg,0:ntg,0:npg) = alph(0:nrg,0:ntg,0:npg)*psi(0:nrg,0:ntg,0:npg) 00009 alps2(0:nrg,0:ntg,0:npg) = alph(0:nrg,0:ntg,0:npg)*psi(0:nrg,0:ntg,0:npg)**2 00010 ! 00011 end subroutine ap2alps
