mod_par::aprint Interface Reference

Public Member Functions
subroutine	aprint_arr (IUNIT, VARP, VART, NOW, ILOC, K1, K2, MSG)
subroutine	aprint_vec (IUNIT, VARP, VART, NOW, ILOC, MSG)

Detailed Description

Definition at line 96 of file mod_par.f90.

Member Function/Subroutine Documentation

aprint_arr()

subroutine mod_par::aprint::aprint_arr	(	integer, intent(in)	IUNIT,
		real(sp), dimension(:,:), intent(in), allocatable, target	VARP,
		character(len=*), intent(in)	VART,
		type(time), intent(in)	NOW,
		integer, intent(in)	ILOC,
		integer, intent(in)	K1,
		integer, intent(in), optional	K2,
		character(len=*), intent(in), optional	MSG
	)

Definition at line 288 of file mod_par.f90.

     USE mod_time
     IMPLICIT NONE
     TYPE(TIME), INTENT(IN) :: NOW
     INTEGER,  INTENT(IN) :: IUNIT,ILOC,K1
     INTEGER,  INTENT(IN),OPTIONAL :: K2
     REAL(SP), ALLOCATABLE, INTENT(IN),TARGET :: VARP(:,:)
     CHARACTER(LEN=*), INTENT(IN) :: VART
     CHARACTER(LEN=*), INTENT(IN),OPTIONAL :: MSG
     REAL(SP), POINTER:: VARP_O(:,:)
     
     varp_o =>  varp
     
     IF (PRESENT(k2)) THEN
        IF(PRESENT(msg))THEN
           CALL pprint_arr(iunit,varp_o,vart,now,iloc,k1,k2,msg)
        ELSE
           CALL pprint_arr(iunit,varp_o,vart,now,iloc,k1,k2)
        END IF
     ELSE
        IF(PRESENT(msg))THEN
           CALL pprint_arr(iunit,varp_o,vart,now,iloc,k1,k1,msg)
        ELSE
           CALL pprint_arr(iunit,varp_o,vart,now,iloc,k1)
        END IF
     END IF

aprint_vec()

subroutine mod_par::aprint::aprint_vec	(	integer, intent(in)	IUNIT,
		real(sp), dimension(:), intent(in), allocatable, target	VARP,
		character(len=*), intent(in)	VART,
		type(time), intent(in)	NOW,
		integer, intent(in)	ILOC,
		character(len=*), intent(in), optional	MSG
	)

Definition at line 145 of file mod_par.f90.

     USE mod_time
     IMPLICIT NONE
     TYPE(TIME), INTENT(IN) :: NOW
     INTEGER,  INTENT(IN) :: IUNIT,ILOC
     REAL(SP), ALLOCATABLE, INTENT(IN),TARGET :: VARP(:)
     CHARACTER(LEN=*), INTENT(IN) :: VART
     CHARACTER(LEN=*), INTENT(IN),OPTIONAL :: MSG
     REAL(SP), POINTER:: VARP_O(:)
     
     varp_o =>  varp
     
     IF(PRESENT(msg))THEN
        CALL pprint_vec(iunit,varp_o,vart,now,iloc,msg)
     ELSE
        CALL pprint_vec(iunit,varp_o,vart,now,iloc)
     END IF

---

The documentation for this interface was generated from the following file:

• FVCOMg01/mod_par.f90