/[lmdze]/trunk/IOIPSL/Histcom/histbeg_totreg.f
ViewVC logotype

Diff of /trunk/IOIPSL/Histcom/histbeg_totreg.f

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

revision 30 by guez, Thu Apr 1 09:07:28 2010 UTC revision 32 by guez, Tue Apr 6 17:52:58 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 333  CONTAINS Line 329  CONTAINS
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
# Line 461  CONTAINS Line 457  CONTAINS
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, &
# 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.32
  ViewVC Help
Powered by ViewVC 1.1.21