Parent Directory | Revision Log | Revision Graph | Patch
revision 1.1 by jmc, Fri Jul 14 20:35:22 2006 UTC | revision 1.2 by dfer, Mon May 14 19:48:36 2007 UTC | |
---|---|---|
# | Line 58 C Example of how to add forcing at the s | Line 58 C Example of how to add forcing at the s |
58 | DO iTrc=1,PTRACERS_numInUse | DO iTrc=1,PTRACERS_numInUse |
59 | DO j = jMin, jMax | DO j = jMin, jMax |
60 | DO i = iMin, iMax | DO i = iMin, iMax |
61 | C Restoring to zero at the surface on a 10-day timescale | |
62 | surfaceForcingPtr(i,j,bi,bj,iTrc) = | surfaceForcingPtr(i,j,bi,bj,iTrc) = |
63 | & surfaceForcingS(i,j,bi,bj) | & + 1. _d 0 / (10. _d 0 * 86400. _d 0) |
64 | c & 0. _d 0 | & * ( 0. _d 0 - pTracer(i,j,ks,bi,bj,iTrc) ) |
65 | & * drF(ks) * _hFacC(i,j,ks,bi,bj) | |
66 | ENDDO | ENDDO |
67 | ENDDO | ENDDO |
68 | ENDDO | ENDDO |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |