/[MITgcm]/MITgcm/verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F
ViewVC logotype

Diff of /MITgcm/verification/tutorial_global_oce_latlon/code/ptracers_forcing_surf.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch 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
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22