329 |
! pzaxid: Returns the ID of the axis. |
! pzaxid: Returns the ID of the axis. |
330 |
! Note that this is not the netCDF ID ! |
! Note that this is not the netCDF ID ! |
331 |
|
|
332 |
USE stringop, ONLY: find_str, strlowercase |
USE find_str_m, ONLY: find_str |
333 |
USE stringop, ONLY: find_str, strlowercase |
USE strlowercase_m, ONLY: strlowercase |
334 |
USE errioipsl, ONLY: histerr |
USE errioipsl, ONLY: histerr |
335 |
USE histcom_var, ONLY: nb_zax, nb_zax_max, ncdf_ids, zax_ids, & |
USE histcom_var, ONLY: nb_zax, nb_zax_max, ncdf_ids, zax_ids, & |
336 |
zax_name, zax_name_length, zax_size |
zax_name, zax_name_length, zax_size |
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. |
457 |
! to be performed on the variables, the frequency of this operation |
! to be performed on the variables, the frequency of this operation |
458 |
! and finaly the frequency of the archiving. |
! and finaly the frequency of the archiving. |
459 |
|
|
460 |
USE stringop, ONLY: find_str |
USE find_str_m, ONLY: find_str |
461 |
USE mathelp, ONLY: buildop |
USE mathelp, ONLY: buildop |
462 |
USE errioipsl, ONLY: histerr |
USE errioipsl, ONLY: histerr |
463 |
USE histcom_var, ONLY: buff_pos, deltat, freq_opp, freq_wrt, fullop, & |
USE histcom_var, ONLY: buff_pos, deltat, freq_opp, freq_wrt, fullop, & |