/[MITgcm]/MITgcm/pkg/dic/dic_biotic_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_biotic_forcing.F

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

revision 1.31 by jmc, Mon Dec 8 22:59:04 2014 UTC revision 1.32 by jmc, Sat Jan 16 21:57:12 2016 UTC
# Line 115  CEOP Line 115  CEOP
115        IF (debugMode) CALL DEBUG_ENTER('DIC_BIOTIC_FORCING',myThid)        IF (debugMode) CALL DEBUG_ENTER('DIC_BIOTIC_FORCING',myThid)
116  #endif  #endif
117    
118          IF ( useThSIce .OR. useSEAICE .OR. useCoupler ) THEN
119    #ifdef ALLOW_DEBUG
120            IF (debugMode) CALL DEBUG_CALL('DIC_FIELDS_UPDATE',myThid)
121    #endif
122            CALL DIC_FIELDS_UPDATE(
123         I                    bi, bj, myTime, myIter, myThid )
124          ENDIF
125    
126         DO k=1,Nr         DO k=1,Nr
127           DO j=1-OLy,sNy+OLy           DO j=1-OLy,sNy+OLy
128            DO i=1-OLx,sNx+OLx            DO i=1-OLx,sNx+OLx
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22