/[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 32 by guez, Tue Apr 6 17:52:58 2010 UTC revision 56 by guez, Tue Jan 10 19:02:02 2012 UTC
# 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 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.32  
changed lines
  Added in v.56
  ViewVC Help
Powered by ViewVC 1.1.21