clm_init Subroutine

public subroutine clm_init(finname, pdaf_id, pdaf_max, mype) bind(C,name="clm_init")

TSMP PDAF comment out beginning

<< TSMP PDAF comment out end

TSMP PDAF addition beginning << TSMP PDAF addition end

TSMP PDAF addition beginning

TSMP PDAF comment out beginning

TSMP PDAF addition beginning << TSMP PDAF addition end

TSMP PDAF addition beginning << TSMP PDAF addition end TSMP PDAF addition beginning << TSMP PDAF addition end

Arguments

Type	Intent	Optional	Attributes		Name
character(kind=c_char, len=1),	intent(in),		dimension(100)	::	finname
integer(kind=c_int),	intent(in)			::	pdaf_id
integer(kind=c_int),	intent(in)			::	pdaf_max
integer(kind=c_int),	intent(in)			::	mype