/[MITgcm]/MITgcm/pkg/matrix/matrix_init.F
ViewVC logotype

Annotation of /MITgcm/pkg/matrix/matrix_init.F

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

Revision 1.2 - (hide annotations) (download)
Wed Apr 20 18:05:08 2005 UTC (19 years, 2 months ago) by spk
Branch: MAIN
CVS Tags: checkpoint57t_post, checkpoint58l_post, checkpoint57o_post, checkpoint57m_post, checkpoint58e_post, checkpoint57v_post, checkpoint57s_post, checkpoint57j_post, checkpoint58b_post, checkpoint58m_post, checkpoint57k_post, checkpoint58u_post, checkpoint58r_post, checkpoint57i_post, checkpoint57y_post, checkpoint58g_post, checkpoint57x_post, checkpoint58n_post, checkpoint58x_post, checkpoint58h_post, checkpoint58w_post, checkpoint58j_post, checkpoint57h_post, checkpoint57y_pre, checkpoint58q_post, checkpoint59e, checkpoint59d, checkpoint59g, checkpoint59f, checkpoint59a, checkpoint59c, checkpoint59b, checkpoint59i, checkpoint59h, checkpoint57r_post, checkpoint59, checkpoint58, checkpoint57h_done, checkpoint58f_post, checkpoint57n_post, checkpoint58d_post, checkpoint58c_post, checkpoint57w_post, checkpoint57p_post, checkpint57u_post, checkpoint58a_post, checkpoint58i_post, checkpoint57q_post, checkpoint58o_post, checkpoint57z_post, checkpoint58y_post, checkpoint58k_post, checkpoint58v_post, checkpoint58s_post, checkpoint58p_post, checkpoint58t_post, checkpoint57h_pre, checkpoint57l_post
Changes since 1.1: +23 -24 lines 
Changed interface (removed iFirstTime flag in input arguments)
and made some cosmetic changes to code
1 spk 1.2 C $Header: /u/gcmpack/MITgcm/pkg/matrix/matrix_init.F,v 1.1 2005/04/18 19:42:56 spk Exp $
2     C $Name: $
3 spk 1.1
4     #include "PACKAGES_CONFIG.h"
5     #include "CPP_OPTIONS.h"
6    
7 spk 1.2 SUBROUTINE MATRIX_INIT( myThid )
8 spk 1.1
9     IMPLICIT NONE
10    
11     #include "EEPARAMS.h"
12     #include "SIZE.h"
13     #include "PTRACERS_SIZE.h"
14     #include "PTRACERS.h"
15     #include "MATRIX.h"
16     #include "PARAMS.h"
17    
18 spk 1.2 INTEGER myThid
19 spk 1.1
20     #ifdef ALLOW_MATRIX
21    
22     C local variables:
23     INTEGER i, j, k, bi, bj
24     INTEGER iTracer
25    
26 spk 1.2 C Initialize counters
27     expMatrixCounter=0
28     impMatrixCounter=0
29     DO iTracer=1,PTRACERS_num
30     DO bj=myByLo(myThid), myByHi (myThid)
31     DO bi=myBxLo (myThid), myBxHi (myThid)
32     DO k=1,Nr
33     DO j=1-Oly, sNy+Oly
34     DO i=1-Olx, sNx+Olx
35     PTRACERS_initial(i,j,k,bi,bj,iTracer)=
36     & pTracer(i,j,k,bi,bj,iTracer)
37     MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0
38     MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0
39     ENDDO
40     ENDDO
41     ENDDO
42     ENDDO
43     ENDDO
44     ENDDO
45 spk 1.1
46     C DO iTracer=1,PTRACERS_numInUse
47     C DO bj=myByLo(myThid), myByHi (myThid)
48     C DO bi=myBxLo (myThid), myBxHi (myThid)
49     C DO k=1,Nr
50     C DO j=1-Oly, sNy+Oly
51     C DO i=1-Olx, sNx+Olx
52     C MATRIX(i,j,k,bi,bj,iTracer,1)= 0. _d 0
53     C MATRIX(i,j,k,bi,bj,iTracer,2)= 0. _d 0
54     C ENDDO
55     C ENDDO
56     C ENDDO
57     C ENDDO
58     C ENDDO
59     C ENDDO
60    
61     #endif /* ALLOW_MATRIX */
62     RETURN
63     END
  ViewVC Help
Powered by ViewVC 1.1.22