559 |
ENDDO |
ENDDO |
560 |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
IF (tracerIdentity.EQ.GAD_TEMPERATURE) THEN |
561 |
CALL KPP_TRANSPORT_T( |
CALL KPP_TRANSPORT_T( |
562 |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
563 |
O df ) |
O df, |
564 |
|
I myTime, myIter, myThid ) |
565 |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
ELSEIF (tracerIdentity.EQ.GAD_SALINITY) THEN |
566 |
CALL KPP_TRANSPORT_S( |
CALL KPP_TRANSPORT_S( |
567 |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
568 |
O df ) |
O df, |
569 |
|
I myTime, myIter, myThid ) |
570 |
#ifdef ALLOW_PTRACERS |
#ifdef ALLOW_PTRACERS |
571 |
ELSEIF (tracerIdentity .GE. GAD_TR1) THEN |
ELSEIF (tracerIdentity .GE. GAD_TR1) THEN |
572 |
CALL KPP_TRANSPORT_PTR( |
CALL KPP_TRANSPORT_PTR( |
573 |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
574 |
I tracerIdentity-GAD_TR1+1, |
I tracerIdentity-GAD_TR1+1, |
575 |
O df ) |
O df, |
576 |
|
I myTime, myIter, myThid ) |
577 |
#endif |
#endif |
578 |
ELSE |
ELSE |
579 |
PRINT*,'invalid tracer indentity: ', tracerIdentity |
PRINT*,'invalid tracer indentity: ', tracerIdentity |