/[MITgcm]/MITgcm/pkg/ptracers/ptracers_forcing_surf.F
ViewVC logotype

Diff of /MITgcm/pkg/ptracers/ptracers_forcing_surf.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by jmc, Sun Jul 18 01:12:04 2004 UTC revision 1.4 by jmc, Sat May 14 22:51:03 2005 UTC
# Line 47  CEOP Line 47  CEOP
47  C Example of how to add forcing at the surface  C Example of how to add forcing at the surface
48         DO iTracer=1,PTRACERS_numInUse         DO iTracer=1,PTRACERS_numInUse
49            DO j = jMin, jMax            DO j = jMin, jMax
50               DO i = iMin, iMax             DO i = iMin, iMax
51                  surfaceForcingPtr(i,j,bi,bj,iTracer) =               surfaceForcingPtr(i,j,bi,bj,iTracer) =
52       &               surfaceForcingS(i,j,bi,bj)       &               0. _d 0
53               ENDDO  c    &               surfaceForcingS(i,j,bi,bj)
54               ENDDO
55            ENDDO            ENDDO
56         ENDDO         ENDDO
57    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22