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: =================================================== |
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)) |