8 |
|
|
9 |
subroutine KPP_TRANSPORT_S ( |
subroutine KPP_TRANSPORT_S ( |
10 |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
11 |
O df ) |
O df, |
12 |
|
I myTime, myIter, myThid ) |
13 |
C /==========================================================\ |
C /==========================================================\ |
14 |
C | o SUBROUTINE KPP_TRANSPORT_S | |
C | o SUBROUTINE KPP_TRANSPORT_S | |
15 |
C | Add non local KPP transport term (ghat) to diffusive | |
C | Add non local KPP transport term (ghat) to diffusive | |
41 |
C iMin,iMax,jMin, - Range of points for which calculation |
C iMin,iMax,jMin, - Range of points for which calculation |
42 |
C jMax,bi,bj,k,km1 results will be set. |
C jMax,bi,bj,k,km1 results will be set. |
43 |
C df - Diffusive flux component work array. |
C df - Diffusive flux component work array. |
44 |
|
C myTime :: Current time in simulation |
45 |
|
C myIter :: Current iteration number in simulation |
46 |
|
C myThid :: My Thread Id. number |
47 |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
INTEGER iMin,iMax,jMin,jMax,bi,bj,k,km1 |
48 |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
_RL df (1-OLx:sNx+OLx,1-OLy:sNy+OLy) |
49 |
|
_RL myTime |
50 |
|
INTEGER myIter |
51 |
|
INTEGER myThid |
52 |
|
|
53 |
#if defined(ALLOW_KPP) && defined(KPP_GHAT) |
#if defined(ALLOW_KPP) && defined(KPP_GHAT) |
54 |
|
|