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

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

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

revision 1.11 by adcroft, Mon Mar 22 15:54:03 1999 UTC revision 1.12 by heimbach, Fri Jun 9 14:26:30 2000 UTC
# Line 65  C                         into fluxUD. Line 65  C                         into fluxUD.
65        INTEGER i,j        INTEGER i,j
66        LOGICAL TOP_LAYER        LOGICAL TOP_LAYER
67    
68    #ifdef ALLOW_AUTODIFF_TAMC
69    C--   rvel(:,:kDown) is still required
70          rVel(1,1,kDown) = rVel(1,1,kDown)
71    #endif
72    
73        TOP_LAYER = K .EQ. 1        TOP_LAYER = K .EQ. 1
74    
75  C--   Calculate mask for tracer cells  (0 => land, 1 => water)  C--   Calculate mask for tracer cells  (0 => land, 1 => water)
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22