private subroutine SwapGridIntegerForward(matIn, matOut)
transport matrix from netcdf format to grid_integer
Arguments
| Type |
Intent | Optional | Attributes |
|
Name |
|
|
integer(kind=long),
|
intent(in) |
|
|
:: |
matIn(:,:) |
|
|
integer(kind=long),
|
intent(out) |
|
|
:: |
matOut(:,:) |
|
Variables
| Type |
Visibility | Attributes |
|
Name |
| Initial | |
|
integer,
|
public |
|
:: |
i |
|
|
|
|
integer,
|
public |
|
:: |
idim |
|
|
|
|
integer,
|
public |
|
:: |
j |
|
|
|
|
integer,
|
public |
|
:: |
jdim |
|
|
|
Source Code
SUBROUTINE SwapGridIntegerForward &
!
(matIn, matOut)
IMPLICIT NONE
!arguments with intent in:
INTEGER (KIND = long), INTENT (IN) :: matIn(:,:)
!arguments with intent out:
INTEGER (KIND = long), INTENT (OUT) :: matOut(:,:)
!local variables:
INTEGER :: i,j,idim,jdim
!----------------------end of declaration--------------------------------------
idim = SIZE (matOut,1)
jdim = SIZE (matOut,2)
DO i = 1, idim
DO j = 1, jdim
matOut (i,j) = matIn (j,idim - i + 1)
END DO
END DO
END SUBROUTINE SwapGridIntegerForward
