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

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

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

revision 67 by guez, Tue Oct 2 15:50:56 2012 UTC revision 68 by guez, Wed Nov 14 16:59:30 2012 UTC
# Line 225  CONTAINS Line 225  CONTAINS
225    
226      ! 3.0 We check if we need to do an operation      ! 3.0 We check if we need to do an operation
227    
228      IF (last_opp_chk(fileid, varid) == itau) THEN      IF (last_opp_chk(fileid, varid) == itau) CALL histerr (3, "histwrite", &
229         CALL histerr (3, "histwrite", &           'This variable as already been analysed at the present', &
230              'This variable as already been analysed at the present', &           'time step', ' ')
             'time step', ' ')  
     ENDIF  
231    
232      CALL isittime &      CALL isittime(itau, date0(fileid), deltat(fileid), &
233           (itau, date0(fileid), deltat(fileid), freq_opp(fileid, varid), &           freq_opp(fileid, varid), last_opp(fileid, varid), &
234           last_opp(fileid, varid), last_opp_chk(fileid, varid), do_oper)           last_opp_chk(fileid, varid), do_oper)
235    
236      ! 4.0 We check if we need to write the data      ! 4.0 We check if we need to write the data
237    
Legend:
Removed from v.67  
changed lines
  Added in v.68
  ViewVC Help
Powered by ViewVC 1.1.21