/[MITgcm]/MITgcm/pkg/ptracers/ptracers_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_init_varia.F

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

revision 1.4 by jmc, Mon Nov 5 18:48:04 2007 UTC revision 1.5 by jahn, Thu May 8 19:50:09 2008 UTC
# Line 2  C $Header$ Line 2  C $Header$
2  C $Name$  C $Name$
3    
4  #include "PTRACERS_OPTIONS.h"  #include "PTRACERS_OPTIONS.h"
5    #include "GAD_OPTIONS.h"
6    
7  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|  C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
8  CBOP  CBOP
# Line 14  C     !DESCRIPTION: Line 15  C     !DESCRIPTION:
15  C     Initialize PTRACERS data structures  C     Initialize PTRACERS data structures
16    
17  C     !USES:  C     !USES:
18    #include "PTRACERS_MOD.h"
19        IMPLICIT NONE        IMPLICIT NONE
20  #include "SIZE.h"  #include "SIZE.h"
21  #include "EEPARAMS.h"  #include "EEPARAMS.h"
22  #include "PARAMS.h"  #include "PARAMS.h"
23  #include "GRID.h"  #include "GRID.h"
24    #include "GAD.h"
25  #include "PTRACERS_SIZE.h"  #include "PTRACERS_SIZE.h"
26  #include "PTRACERS_PARAMS.h"  #include "PTRACERS_PARAMS.h"
27  #include "PTRACERS_FIELDS.h"  #include "PTRACERS_FIELDS.h"
# Line 31  C     myThid               :: thread num Line 34  C     myThid               :: thread num
34    
35  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
36  C     i,j,k,bi,bj,iTracer  :: loop indices  C     i,j,k,bi,bj,iTracer  :: loop indices
37        INTEGER i,j,k,bi,bj,iTracer        INTEGER i,j,k,bi,bj,iTracer,n
38  CEOP  CEOP
39    
40  C     Loop over tracers  C     Loop over tracers
# Line 57  C     Initialize arrays in common blocks Line 60  C     Initialize arrays in common blocks
60            ENDDO            ENDDO
61           ENDDO           ENDDO
62    
63    #if defined(GAD_ALLOW_SOM_ADVECT) && defined(PTRACERS_ALLOW_DYN_STATE)
64    C     Initialize SOM array :
65             IF ( PTRACERS_SOM_Advection(iTracer) ) THEN
66               DO n = 1,nSOM
67                DO k=1,Nr
68                 DO j=1-OLy,sNy+OLy
69                  DO i=1-OLx,sNx+OLx
70                   _Ptracers_som(i,j,k,bi,bj,n,iTracer) = 0. _d 0
71                  ENDDO
72                 ENDDO
73                ENDDO
74               ENDDO
75             ENDIF
76    #endif /* GAD_ALLOW_SOM_ADVECT && PTRACERS_ALLOW_DYN_STATE */
77    
78  C     end bi,bj loops  C     end bi,bj loops
79          ENDDO          ENDDO
80         ENDDO         ENDDO
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22