gstats_label.F90

Go to the documentation of this file.

SUBROUTINE gstats_label(KNUM,CTYPE,CDESC)

USE parkind1  ,ONLY : jpim     ,jprb

USE yomgstats

IMPLICIT NONE

INTEGER(KIND=JPIM) :: KNUM
CHARACTER(*) CDESC
CHARACTER(*) CTYPE
INTEGER(KIND=JPIM) :: ILEN, ITLEN

IF(knum < 0 .OR. knum>jpmaxstat) CALL abor1('GSTATS_LABEL:ILLEGAL KNUM')
ilen = len(cdesc)
ilen = min(ilen,50)
itlen = len(ctype)
itlen = min(ilen,3)
IF(ccdesc(knum) == '') THEN
  ccdesc(knum) = cdesc(1:ilen)
  cctype(knum) = ctype(1:itlen)
ELSEIF(ccdesc(knum)(1:ilen) /= cdesc(1:ilen)) THEN
  WRITE(jperr,*)'LABEL',knum,' USED ',ccdesc(knum)
  CALL abor1('GSTATS_LABEL:OVERWRITE OF USED LABEL')
ENDIF

END SUBROUTINE gstats_label