H A D | head_constraint.f | 2 SUBROUTINE head_constraint(DIM,X,Y,Z,WELRATE,HEAD,NLAY,NROW, argument 22 REAL*8 HEAD(NROW,NCOL,NLAY), HMIN, HMAX,DRWDOWN(DIM) 44 TEMP5 = HEAD(X(I),Y(I),Z(I))-HMIN 46 WRITE(*,*) 'Min head violated',HEAD(X(I),Y(I),Z(I)),X(I),Y(I),Z(I),I 51 TEMP5 = HMAX-HEAD(X(I),Y(I),Z(I)) 54 WRITE(*,*) 'Max head violated', HEAD(X(I),Y(I),Z(I)), X(I),Y(I), I 62 TEMP5 = HEAD(27,18,4)-HEAD(28,18,4) 70 TEMP5 = HEAD(23,24,4)-HEAD(24,24,4) 77 TEMP5 = HEAD(26,33,4)-HEAD(27,33,4) 84 TEMP5 = HEAD(35,39,4)-HEAD(35,38,4) [all …]
|