/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_calc_rhs.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_calc_rhs.F

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

revision 1.12 by heimbach, Thu Sep 27 20:12:11 2001 UTC revision 1.13 by heimbach, Sun Mar 24 02:12:50 2002 UTC
# Line 43  C !USES: =============================== Line 43  C !USES: ===============================
43  #include "DYNVARS.h"  #include "DYNVARS.h"
44  #include "GAD.h"  #include "GAD.h"
45    
46    #ifdef ALLOW_AUTODIFF_TAMC
47    #include "tamc.h"
48    #include "tamc_keys.h"
49    #endif /* ALLOW_AUTODIFF_TAMC */
50    
51  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
52  C  bi,bj                :: tile indices  C  bi,bj                :: tile indices
53  C  iMin,iMax,jMin,jMax  :: loop range for called routines  C  iMin,iMax,jMin,jMax  :: loop range for called routines
# Line 102  C--   only the kUp part of fverT is set Line 107  C--   only the kUp part of fverT is set
107  C--   the kDown is still required  C--   the kDown is still required
108        fVerT(1,1,kDown) = fVerT(1,1,kDown)        fVerT(1,1,kDown) = fVerT(1,1,kDown)
109  #endif  #endif
110    
111        DO j=1-OLy,sNy+OLy        DO j=1-OLy,sNy+OLy
112         DO i=1-OLx,sNx+OLx         DO i=1-OLx,sNx+OLx
113          fZon(i,j)      = 0. _d 0          fZon(i,j)      = 0. _d 0
114          fMer(i,j)      = 0. _d 0          fMer(i,j)      = 0. _d 0
115          fVerT(i,j,kUp) = 0. _d 0          fVerT(i,j,kUp) = 0. _d 0
116            df(i,j)        = 0. _d 0
117            df4(i,j)       = 0. _d 0
118            localT(i,j)    = 0. _d 0
119         ENDDO         ENDDO
120        ENDDO        ENDDO
121    
Legend:
Removed from v.1.12  
changed lines
  Added in v.1.13
  ViewVC Help
Powered by ViewVC 1.1.22