/[lmdze]/trunk/libf/IOIPSL/histcom.f90
ViewVC logotype

Diff of /trunk/libf/IOIPSL/histcom.f90

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC
# Line 18  MODULE histcom Line 18  MODULE histcom
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, &
# Line 1045  CONTAINS Line 1041  CONTAINS
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    !**********************************    !**********************************
Legend:
Removed from v.30  
changed lines
  Added in v.31
  ViewVC Help
Powered by ViewVC 1.1.21