subroutine_template.F90.bk 1008 Bytes
Newer Older
Femi Kadri's avatar
Femi Kadri committed
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30
SUBROUTINE LST_calc_abs_position_averages(&
& My_MPI_Process_ID,&
& LST_time_step_number,&
& )

USE debug_module


	IMPLICIT NONE

	INCLUDE "mpif.h"

	!-----------INTENT(IN)------------------------------------------
	INTEGER,INTENT(IN) :: LST_time_step_number,My_MPI_Process_ID
	LOGICAL*4,PARAMETER :: debug = GLOBAL_DEBUG
	!-----------INTENT(OUT)------------------------------------------
	!-----------INTENT(INOUT)------------------------------------------	
	!-----------NO INTENT------------------------------------------


	IF(debug) WRITE (0,*) My_MPI_Process_ID,'entered SUBROUTINE LST_calc_abs_position_averages',LST_time_step_number
	IF(debug) WRITE (9,*) My_MPI_Process_ID,'entered SUBROUTINE LST_calc_abs_position_averages',LST_time_step_number




	IF(debug) WRITE (0,*) My_MPI_Process_ID,'about to END SUBROUTINE LST_calc_abs_position_averages'
	IF(debug) WRITE (9,*) My_MPI_Process_ID,'about to END SUBROUTINE LST_calc_abs_position_averages'

RETURN
Femi Kadri's avatar
Femi Kadri committed
31
END SUBROUTINE LST_calc_abs_position_averages