/[lmdze]/trunk/Sources/IOIPSL/histwrite_real.f
ViewVC logotype

Diff of /trunk/Sources/IOIPSL/histwrite_real.f

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

revision 177 by guez, Wed Apr 29 15:47:56 2015 UTC revision 178 by guez, Fri Mar 11 18:47:26 2016 UTC
# Line 2  module histwrite_real_m Line 2  module histwrite_real_m
2    
3    implicit none    implicit none
4    
5      REAL, ALLOCATABLE, SAVE:: buffer(:)
6    
7  contains  contains
8    
9    SUBROUTINE histwrite_real(fileid, varid, itau, nbdpt, buff_tmp, nbindex, &    SUBROUTINE histwrite_real(datasz_max, fileid, varid, itau, nbdpt, buff_tmp, &
10         nindex, do_oper, do_write)         nbindex, nindex, do_oper, do_write)
11    
12      ! This subroutine is internal and does the calculations and writing      ! This subroutine is internal and does the calculations and writing
13      ! if needed. At a later stage it should be split into an operation      ! if needed. At a later stage it should be split into an operation
14      ! and writing subroutines.      ! and writing subroutines.
15    
16      USE histcom_var, ONLY: buffer, buff_pos, datasz_max, deltat, &      use histbeg_totreg_m, only: deltat, regular
17           last_opp, last_wrt, missing_val, nbopp, nb_opp, nb_wrt, ncdf_ids, &      USE histcom_var, ONLY: last_opp, last_wrt, missing_val, nbopp, nb_opp, &
18           ncvar_ids, point, regular, scal, scsize, sopps, tax_last, tdimid, &           nb_wrt, ncdf_ids, scal, scsize, sopps, tax_last, tdimid, topp, &
19           topp, var_axid, zorig, zsize           var_axid, zorig, zsize
20      USE trans_buff_m, ONLY: trans_buff      use histdef_m, only: buff_pos, point
21      use moycum_m, only: moycum      use histend_m, only: ncvar_ids
22      USE mathop_m, ONLY: mathop      USE mathop_m, ONLY: mathop
23        use moycum_m, only: moycum
24      use netcdf, only: NF90_PUT_VAR      use netcdf, only: NF90_PUT_VAR
25        USE trans_buff_m, ONLY: trans_buff
26    
27        INTEGER, INTENT(IN):: datasz_max(:, :) ! (nb_files_max, nb_var_max)
28      INTEGER, INTENT(IN):: fileid, varid, itau, nbdpt      INTEGER, INTENT(IN):: fileid, varid, itau, nbdpt
29      REAL buff_tmp(:)      REAL buff_tmp(:)
30    
Legend:
Removed from v.177  
changed lines
  Added in v.178
  ViewVC Help
Powered by ViewVC 1.1.21