/[MITgcm]/MITgcm/pkg/grdchk/grdchk_init.F
ViewVC logotype

Diff of /MITgcm/pkg/grdchk/grdchk_init.F

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

revision 1.9 by heimbach, Sun Nov 19 23:17:17 2006 UTC revision 1.10 by jmc, Tue Oct 9 00:05:45 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2    C $Name$
3    
4  #include "CTRL_CPPOPTIONS.h"  #include "CTRL_CPPOPTIONS.h"
5    
# Line 112  c--   control variable on the current ti Line 113  c--   control variable on the current ti
113                    do iobcs = 1, nobcs                    do iobcs = 1, nobcs
114                       if ( grdchkvarindex .eq. 11 ) then                       if ( grdchkvarindex .eq. 11 ) then
115  #ifdef ALLOW_OBCSN_CONTROL  #ifdef ALLOW_OBCSN_CONTROL
116                          nwettile(bi,bj,k,iobcs) =                          nwettile(bi,bj,k,iobcs) =
117       &                       nwetobcsn(bi,bj,k,iobcs)       &                       nwetobcsn(bi,bj,k,iobcs)
118  #endif  #endif
119                       else if ( grdchkvarindex .eq. 12 ) then                       else if ( grdchkvarindex .eq. 12 ) then
120  #ifdef ALLOW_OBCSS_CONTROL  #ifdef ALLOW_OBCSS_CONTROL
121                          nwettile(bi,bj,k,iobcs) =                          nwettile(bi,bj,k,iobcs) =
122       &                       nwetobcss(bi,bj,k,iobcs)       &                       nwetobcss(bi,bj,k,iobcs)
123  #endif  #endif
124                       else if ( grdchkvarindex .eq. 13 ) then                       else if ( grdchkvarindex .eq. 13 ) then
125  #ifdef ALLOW_OBCSW_CONTROL  #ifdef ALLOW_OBCSW_CONTROL
126                          nwettile(bi,bj,k,iobcs) =                          nwettile(bi,bj,k,iobcs) =
127       &                       nwetobcsw(bi,bj,k,iobcs)       &                       nwetobcsw(bi,bj,k,iobcs)
128  #endif  #endif
129                       else if ( grdchkvarindex .eq. 14 ) then                       else if ( grdchkvarindex .eq. 14 ) then
130  #ifdef ALLOW_OBCSE_CONTROL  #ifdef ALLOW_OBCSE_CONTROL
131                          nwettile(bi,bj,k,iobcs) =                          nwettile(bi,bj,k,iobcs) =
132       &                       nwetobcse(bi,bj,k,iobcs)       &                       nwetobcse(bi,bj,k,iobcs)
133  #endif  #endif
134                       endif                       endif
# Line 155  c--   components of the given control va Line 156  c--   components of the given control va
156              do k = 1,ncvarnrmax(grdchkvarindex)              do k = 1,ncvarnrmax(grdchkvarindex)
157                 do iobcs = 1, nobcs                 do iobcs = 1, nobcs
158                    ncvarcomp     = ncvarcomp + nwettile(bi,bj,k,iobcs)                    ncvarcomp     = ncvarcomp + nwettile(bi,bj,k,iobcs)
159                    maxncvarcomps = maxncvarcomps +                    maxncvarcomps = maxncvarcomps +
160       &                 ncvarxmax(grdchkvarindex)*       &                 ncvarxmax(grdchkvarindex)*
161       &                 ncvarymax(grdchkvarindex)       &                 ncvarymax(grdchkvarindex)
162                 enddo                 enddo
# Line 169  c--   components of the given control va Line 170  c--   components of the given control va
170           do bi = itlo,ithi           do bi = itlo,ithi
171              iwetsum(bi,bj,0)    = 0              iwetsum(bi,bj,0)    = 0
172              do k = 1,ncvarnrmax(grdchkvarindex)              do k = 1,ncvarnrmax(grdchkvarindex)
173                 iwetsum(bi,bj,k) = iwetsum(bi,bj,k-1) +                 iwetsum(bi,bj,k) = iwetsum(bi,bj,k-1) +
174       &              nwettile(bi,bj,k,1)       &              nwettile(bi,bj,k,1)
175              enddo              enddo
176           enddo           enddo
Legend:
Removed from v.1.9  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22