/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/dic_diags_init.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/dic_diags_init.F

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

revision 1.2 by stephd, Wed Oct 9 17:14:37 2013 UTC revision 1.3 by jahn, Fri Dec 27 17:29:00 2013 UTC
# Line 48  c set arrays to zero if first timestep Line 48  c set arrays to zero if first timestep
48            CALL TIMEAVE_RESET(pHave,   1,  bi, bj, myThid)            CALL TIMEAVE_RESET(pHave,   1,  bi, bj, myThid)
49  #endif  #endif
50            print*,'QQ start timeave'            print*,'QQ start timeave'
51            do k=1,Nr            DIC_timeAve(bi,bj)=0.d0
             DIC_TimeAve(bi,bj,k)=0.d0  
           enddo  
52           ENDDO           ENDDO
53          ENDDO          ENDDO
54  #endif /* ALLOW_TIMEAVE */  #endif /* ALLOW_TIMEAVE */
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22