/[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.72 by heimbach, Mon Sep 22 21:24:08 2008 UTC revision 1.73 by jmc, Thu Sep 25 14:52:25 2008 UTC
# Line 259  CHPF$ INDEPENDENT Line 259  CHPF$ INDEPENDENT
259            itdkey = (act1 + 1) + act2*max1            itdkey = (act1 + 1) + act2*max1
260       &                      + act3*max1*max2       &                      + act3*max1*max2
261       &                      + act4*max1*max2*max3       &                      + act4*max1*max2*max3
262  #else  /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
263    #if ( !defined (ALLOW_AUTODIFF_TAMC) || !defined (ALLOW_KPP) )
264  C     if fluid is not water, by-pass find_rho, gmredi, surfaceForcing  C     if fluid is not water, by-pass find_rho, gmredi, surfaceForcing
265  C     and all vertical mixing schemes, but keep OBCS_CALC  C     and all vertical mixing schemes, but keep OBCS_CALC
266          IF ( fluidIsWater ) THEN          IF ( fluidIsWater ) THEN
267  #endif /* ALLOW_AUTODIFF_TAMC */  #endif
268    
269  C--   Set up work arrays with valid (i.e. not NaN) values  C--   Set up work arrays with valid (i.e. not NaN) values
270  C     These inital values do not alter the numerical results. They  C     These inital values do not alter the numerical results. They
# Line 633  C--     Calculate Downsloping Flow for D Line 634  C--     Calculate Downsloping Flow for D
634          ENDIF          ENDIF
635  #endif /* ALLOW_DOWN_SLOPE */  #endif /* ALLOW_DOWN_SLOPE */
636    
637  #ifndef ALLOW_AUTODIFF_TAMC  #if ( !defined (ALLOW_AUTODIFF_TAMC) || !defined (ALLOW_KPP) )
638  C---  if fluid Is Water: end  C---  if fluid Is Water: end
639          ENDIF          ENDIF
640  #endif  #endif
Legend:
Removed from v.1.72  
changed lines
  Added in v.1.73
  ViewVC Help
Powered by ViewVC 1.1.22