/[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 31 by guez, Thu Apr 1 14:59:19 2010 UTC revision 56 by guez, Tue Jan 10 19:02:02 2012 UTC
# Line 329  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 447  CONTAINS Line 447  CONTAINS
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.
# Line 457  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 1055  CONTAINS Line 1055  CONTAINS
1055      USE histcom_var, ONLY: nb_files, ncdf_ids      USE histcom_var, ONLY: nb_files, ncdf_ids
1056      USE netcdf, ONLY: nf90_sync      USE netcdf, ONLY: nf90_sync
1057    
1058      INTEGER, INTENT (IN), OPTIONAL:: file      INTEGER, INTENT(IN), OPTIONAL:: file
1059    
1060      INTEGER:: ifile, ncid, iret      INTEGER:: ifile, ncid, iret
1061    
Legend:
Removed from v.31  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.21