447 |
|
|
448 |
!********************************** |
!********************************** |
449 |
|
|
450 |
SUBROUTINE histdef(pfileid, pvarname, ptitle, punit, pxsize, pysize, phoriid, & |
SUBROUTINE histdef(pfileid, pvarname, ptitle, punit, pxsize, pysize, & |
451 |
pzsize, par_oriz, par_szz, pzid, popp, pfreq_opp, pfreq_wrt) |
phoriid, pzsize, par_oriz, par_szz, pzid, popp, pfreq_opp, pfreq_wrt) |
452 |
|
|
453 |
! With this subroutine each variable to be archived on the history |
! With this subroutine each variable to be archived on the history |
454 |
! tape should be declared. |
! tape should be declared. |