46 |
integer im1,im2,jm1,jm2,Nr,Nsx,Nsy,Nrphys |
integer im1,im2,jm1,jm2,Nr,Nsx,Nsy,Nrphys |
47 |
integer i1,i2,j1,j2,bi,bj |
integer i1,i2,j1,j2,bi,bj |
48 |
integer numlevphys |
integer numlevphys |
49 |
_RL hfacC(im1:im2,jm1:jm2,Nr,Nsx,Nsy) |
_RS hfacC(im1:im2,jm1:jm2,Nr,Nsx,Nsy) |
50 |
_RL dpphys(im1:im2,jm1:jm2,Nrphys,Nsx,Nsy) |
_RL dpphys(im1:im2,jm1:jm2,Nrphys,Nsx,Nsy) |
51 |
_RL drF(Nr) |
_RS drF(Nr) |
52 |
integer Lbot(im1:im2,jm1:jm2,Nsx,Nsy) |
integer Lbot(im1:im2,jm1:jm2,Nsx,Nsy) |
53 |
integer nlperdyn(im1:im2,jm1:jm2,Nr,Nsx,Nsy) |
integer nlperdyn(im1:im2,jm1:jm2,Nr,Nsx,Nsy) |
54 |
c |
c |