18 |
|
|
19 |
IMPLICIT NONE |
IMPLICIT NONE |
20 |
|
|
|
PRIVATE |
|
|
PUBLIC:: histbeg_totreg, histdef, histhori_regular, histvert, histend, & |
|
|
histclo, histsync |
|
|
|
|
21 |
CONTAINS |
CONTAINS |
22 |
|
|
23 |
SUBROUTINE histbeg_totreg(pfilename, plon_1d, plat_1d, par_orix, par_szx, & |
SUBROUTINE histbeg_totreg(pfilename, plon_1d, plat_1d, par_orix, par_szx, & |
1041 |
|
|
1042 |
iret = nf90_enddef(ncid) |
iret = nf90_enddef(ncid) |
1043 |
|
|
|
! 4.0 Give some informations to the user |
|
|
|
|
|
WRITE (str70, '("All variables have been initialized on file:", I3)') & |
|
|
pfileid |
|
|
CALL histerr(1, 'histend', str70, '', ' ') |
|
|
|
|
1044 |
END SUBROUTINE histend |
END SUBROUTINE histend |
1045 |
|
|
1046 |
!********************************** |
!********************************** |