TABLE OF CONTENTS

cgca_m4fr/cgca_fr [ Subroutines ]

[ Top ] [ cgca_m4fr ] [ Subroutines ]

NAME

cgca_fr

SYNOPSIS

subroutine cgca_fr( coarray, rt, s1, scrit, periodicbc, iter, &
 heartbeat, debug )

INPUTS

integer( kind=iarr ), allocatable, intent( inout ) :: &
  coarray(:,:,:,:)[:,:,:]
real( kind=rdef ), allocatable, intent(inout) :: rt(:,:,:)[:,:,:]
real( kind=rdef ), intent(in) :: s1(3), scrit(3)
logical(kind=ldef),intent(in) :: periodicbc
integer(kind=idef),intent(in) :: iter,heartbeat
logical(kind=ldef),intent(in) :: debug

SIDE EFFECTS

state of coarray changes

DESCRIPTION

This routine does one iteration of cleavage propagation, followed by an iteration of grain boundary fracture. It does the halo exchange when required. Then it repeats this cycle for the given number of iterations, "iter". Do not check coarray for allocated, as this wastes time. Instead let the code fail if coarray is not allocated. determine the extents dummy code to suppress the warnings debug

CGPACK/cgca_m4fr [ Modules ]

[ Top ] [ Modules ]

NAME

cgca_m4fr

SYNOPSIS

!$Id: cgca_m4fr.f90 400 2017-05-04 17:47:56Z mexas $

module cgca_m4fr

DESCRIPTION

Module dealing with fracture

AUTHOR

Anton Shterenlikht

COPYRIGHT

See LICENSE

CONTAINS

USES

cgca_m1co, cgca_m2gb, cgca_

USED BY

SOURCE

use cgca_m1co
use cgca_m2gb
use cgca_m3clvg
use cgca_m3gbf
implicit none
private

contains