Parent Directory | Revision Log | Revision Graph | Patch
revision 1.17 by jmc, Sun Jan 26 21:08:36 2003 UTC | revision 1.18 by mlosch, Wed May 14 09:20:06 2003 UTC | |
---|---|---|
# | Line 402 C *note* should update KPP_TRANSPORT_T t | Line 402 C *note* should update KPP_TRANSPORT_T t |
402 | I iMin,iMax,jMin,jMax,bi,bj,k,km1, | I iMin,iMax,jMin,jMax,bi,bj,k,km1, |
403 | I KappaRT, | I KappaRT, |
404 | U df ) | U df ) |
405 | #ifdef ALLOW_PTRACERS | |
406 | ELSEIF (tracerIdentity.EQ.GAD_TR1) THEN | |
407 | CALL KPP_TRANSPORT_PTR( | |
408 | I iMin,iMax,jMin,jMax,bi,bj,k,km1, | |
409 | I KappaRT, | |
410 | U df ) | |
411 | #endif | |
412 | ELSE | ELSE |
413 | PRINT*,'invalid tracer indentity: ', tracerIdentity | |
414 | STOP 'GAD_CALC_RHS: Ooops' | STOP 'GAD_CALC_RHS: Ooops' |
415 | ENDIF | ENDIF |
416 | DO j=1-Oly,sNy+Oly | DO j=1-Oly,sNy+Oly |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |