/[MITgcm]/MITgcm/pkg/ctrl/ctrl_set_globfld_xy.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_set_globfld_xy.F

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

revision 1.2 by heimbach, Sat Jul 13 02:47:32 2002 UTC revision 1.3 by heimbach, Mon Sep 16 18:11:58 2002 UTC
# Line 74  c     Initialise temporary file Line 74  c     Initialise temporary file
74                    do bi = itlo,ithi                    do bi = itlo,ithi
75                       do i = imin,imax                       do i = imin,imax
76  #ifdef ALLOW_TANGENTLINEAR_RUN  #ifdef ALLOW_TANGENTLINEAR_RUN
77                          globfld2d(i,bi,ip,j,bj,jp) = 1. _d 0                          globfld2d(i,bi,ip,j,bj,jp) = 0. _d 0
78  #else  #else
79                          globfld2d(i,bi,ip,j,bj,jp) = 0. _d 0                          globfld2d(i,bi,ip,j,bj,jp) = 0. _d 0
80  #endif  #endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22