Parent Directory | Revision Log | Revision Graph | Patch
revision 1.3 by jmc, Sat Jun 15 03:37:44 2002 UTC | revision 1.4 by jmc, Thu Jun 20 23:46:22 2002 UTC | |
---|---|---|
# | Line 145 C Account for change in level thickness | Line 145 C Account for change in level thickness |
145 | I bi,bj,K, | I bi,bj,K, |
146 | U gPtr(1-Olx,1-Oly,1,1,1,iTracer), | U gPtr(1-Olx,1-Oly,1,1,1,iTracer), |
147 | I myThid ) | I myThid ) |
148 | IF ( PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_2ND | |
149 | & .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_UPWIND_3RD | |
150 | & .OR.PTRACERS_advScheme(iTracer).EQ.ENUM_CENTERED_4TH ) | |
151 | & CALL FREESURF_RESCALE_G( | |
152 | I bi,bj,K, | |
153 | U gPtrNm1(1-Olx,1-Oly,1,1,1,iTracer), | |
154 | I myThid ) | |
155 | ENDIF | ENDIF |
156 | #endif /* NONLIN_FRSURF */ | #endif /* NONLIN_FRSURF */ |
157 |
|
ViewVC Help | |
Powered by ViewVC 1.1.22 |