/[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.5 by jahn, Thu May 8 19:50:09 2008 UTC revision 1.6 by jmc, Fri May 9 21:44:31 2008 UTC
# Line 60  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)  #ifdef PTRACERS_ALLOW_DYN_STATE
64  C     Initialize SOM array :  C     Initialize SOM array :
65           IF ( PTRACERS_SOM_Advection(iTracer) ) THEN           IF ( PTRACERS_SOM_Advection(iTracer) ) THEN
66             DO n = 1,nSOM             DO n = 1,nSOM
# Line 73  C     Initialize SOM array : Line 73  C     Initialize SOM array :
73              ENDDO              ENDDO
74             ENDDO             ENDDO
75           ENDIF           ENDIF
76  #endif /* GAD_ALLOW_SOM_ADVECT && PTRACERS_ALLOW_DYN_STATE */  #endif /* PTRACERS_ALLOW_DYN_STATE */
77    
78  C     end bi,bj loops  C     end bi,bj loops
79          ENDDO          ENDDO
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22