/[MITgcm]/MITgcm/pkg/pp81/pp81_calc.F
ViewVC logotype

Diff of /MITgcm/pkg/pp81/pp81_calc.F

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

revision 1.4 by jmc, Thu Oct 8 20:08:20 2009 UTC revision 1.5 by jmc, Sun Jan 3 19:17:01 2010 UTC
# Line 36  C !USES: =============================== Line 36  C !USES: ===============================
36  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
37  #include "tamc.h"  #include "tamc.h"
38  #include "tamc_keys.h"  #include "tamc_keys.h"
 #else /* ALLOW_AUTODIFF_TAMC */  
       integer ikppkey  
39  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
40    
41  C !INPUT PARAMETERS: ===================================================  C !INPUT PARAMETERS: ===================================================
# Line 93  CML     &        PPviscAr(I,J,K,bi,bj), Line 91  CML     &        PPviscAr(I,J,K,bi,bj),
91  #ifdef ALLOW_PP81_LOWERBOUND  #ifdef ALLOW_PP81_LOWERBOUND
92  CRT   This is where the lower limit for subsurface layers  CRT   This is where the lower limit for subsurface layers
93  CRT   (BRIOS special) is set.  CRT   (BRIOS special) is set.
94         IF ( (buoyancyRelation .EQ. 'OCEANIC' .AND. K .EQ. 2) .OR.         IF ( (usingZCoords .AND. K .EQ. 2) .OR.
95       &      (buoyancyRelation .EQ. 'OCEANICP' .AND. K .EQ. Nr) ) THEN       &      (usingPCoords .AND. K .EQ. Nr) ) THEN
96          DO J=jMin,jMax          DO J=jMin,jMax
97           DO I=iMin,iMax           DO I=iMin,iMax
98            PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj))            PPviscAr(I,J,K,bi,bj) = MAX(PPviscMin,PPviscAr(I,J,K,bi,bj))
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22