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

Diff of /MITgcm/pkg/ctrl/ctrl_set_globfld_yz.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 ip = 1,nPx                    do ip = 1,nPx
75                       do bi = itlo,ithi                       do bi = itlo,ithi
76  #ifdef ALLOW_TANGENTLINEAR_RUN  #ifdef ALLOW_TANGENTLINEAR_RUN
77                          globfldyz(bi,ip,j,bj,jp,k) = 1. _d 0                          globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0
78  #else  #else
79                          globfldyz(bi,ip,j,bj,jp,k) = 0. _d 0                          globfldyz(bi,ip,j,bj,jp,k) = 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