/[MITgcm]/MITgcm/model/src/do_oceanic_phys.F
ViewVC logotype

Diff of /MITgcm/model/src/do_oceanic_phys.F

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

revision 1.74 by jmc, Fri Oct 3 02:26:49 2008 UTC revision 1.75 by heimbach, Fri Oct 17 18:37:10 2008 UTC
# Line 70  C     == Global variables === Line 70  C     == Global variables ===
70  # ifdef ALLOW_SEAICE  # ifdef ALLOW_SEAICE
71  #  include "SEAICE.h"  #  include "SEAICE.h"
72  # endif  # endif
73    # ifdef ALLOW_SALT_PLUME
74    #  include "SALT_PLUME.h"
75    # endif
76  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
77    
78  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
# Line 320  c          rhoInSitu(i,j,k,bi,bj) = 0. Line 323  c          rhoInSitu(i,j,k,bi,bj) = 0.
323            ENDDO            ENDDO
324           ENDDO           ENDDO
325          ENDDO          ENDDO
326            DO j=1-OLy,sNy+OLy
327             DO i=1-OLx,sNx+OLx
328    #ifdef ALLOW_AUTODIFF_TAMC
329    # ifdef ALLOW_SALT_PLUME
330              saltPlumeDepth(i,j,bi,bj) = 0. _d 0
331              saltPlumeFlux(i,j,bi,bj)  = 0. _d 0
332    # endif
333    #endif /* ALLOW_AUTODIFF_TAMC */
334             ENDDO
335            ENDDO
336    
337          iMin = 1-OLx          iMin = 1-OLx
338          iMax = sNx+OLx          iMax = sNx+OLx
Legend:
Removed from v.1.74  
changed lines
  Added in v.1.75
  ViewVC Help
Powered by ViewVC 1.1.22