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

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

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

revision 31 by guez, Thu Apr 1 14:59:19 2010 UTC revision 32 by guez, Tue Apr 6 17:52:58 2010 UTC
# Line 48  CONTAINS Line 48  CONTAINS
48    
49      USE errioipsl, ONLY : histerr      USE errioipsl, ONLY : histerr
50      use calendar, only: isittime      use calendar, only: isittime
51      USE mathelp, ONLY : mathop      USE mathop_m, ONLY : mathop
52      use histcom_var      use histcom_var
53    
54      INTEGER, INTENT(IN) :: pfileid, pitau      INTEGER, INTENT(IN) :: pfileid, pitau
# Line 190  CONTAINS Line 190  CONTAINS
190    
191      use calendar, only: isittime      use calendar, only: isittime
192      USE errioipsl, ONLY : histerr      USE errioipsl, ONLY : histerr
193      USE mathelp, ONLY : mathop      USE mathop_m, ONLY : mathop
194      use histcom_var      use histcom_var
195    
196      INTEGER, INTENT(IN) :: pfileid, pitau      INTEGER, INTENT(IN) :: pfileid, pitau
# Line 332  CONTAINS Line 332  CONTAINS
332    
333      use calendar, only: isittime      use calendar, only: isittime
334      USE errioipsl, ONLY : histerr      USE errioipsl, ONLY : histerr
335      USE mathelp, ONLY : mathop      USE mathop_m, ONLY : mathop
336      use histcom_var      use histcom_var
337    
338      INTEGER, INTENT(IN) :: pfileid, pitau      INTEGER, INTENT(IN) :: pfileid, pitau
# Line 478  CONTAINS Line 478  CONTAINS
478      ! and writing subroutines.      ! and writing subroutines.
479      !--------------------------------------------------------------------      !--------------------------------------------------------------------
480    
481      USE mathelp, ONLY : mathop, trans_buff, moycum      USE mathop_m, ONLY : mathop
482        USE mathelp, ONLY : trans_buff, moycum
483      use netcdf, only: NF90_PUT_VAR      use netcdf, only: NF90_PUT_VAR
484      use histcom_var      use histcom_var
485    
# Line 695  CONTAINS Line 696  CONTAINS
696      ! pvarname : The name of the variable we are looking for      ! pvarname : The name of the variable we are looking for
697      ! pvid     : The var id we found      ! pvid     : The var id we found
698    
699      USE stringop, ONLY: find_str      USE find_str_m, ONLY: find_str
700      USE errioipsl, ONLY : histerr      USE errioipsl, ONLY : histerr
701      use histcom_var      use histcom_var
702    
Legend:
Removed from v.31  
changed lines
  Added in v.32
  ViewVC Help
Powered by ViewVC 1.1.21