subroutine module_mp_nssl_2mom::calcnfromcuten |
( |
integer | nx, |
|
|
integer | ny, |
|
|
integer | nz, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz,na) | an, |
|
|
real, dimension(-nor+1:nx+nor,-nor+1:ny+nor,-norz+1:nz+norz,na) | anold, |
|
|
integer | na, |
|
|
integer | nor, |
|
|
integer | norz, |
|
|
real, dimension(nx,nz+1) | dn ) |
|
private |