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

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

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

revision 1.19 by heimbach, Thu Jun 14 18:55:36 2007 UTC revision 1.20 by gforget, Tue Jun 19 03:42:30 2007 UTC
# Line 211  cph( Line 211  cph(
211       &                 phtmpadmtlm(nveccount)       &                 phtmpadmtlm(nveccount)
212  cph)  cph)
213  #endif  #endif
214    #ifndef ALLOW_SMOOTH_CORREL2D
215  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO
216                       if ( lxxadxx ) then                       if ( lxxadxx ) then
217                          globfld3d(i,bi,ip,j,bj,jp,k) =                          globfld3d(i,bi,ip,j,bj,jp,k) =
218       &                       globfld3d(i,bi,ip,j,bj,jp,k)/       &                       globfld3d(i,bi,ip,j,bj,jp,k)/
219       &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))       &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
220         &                       * forcingPrecond
221                       else                       else
222                          globfld3d(i,bi,ip,j,bj,jp,k) =                          globfld3d(i,bi,ip,j,bj,jp,k) =
223       &                       globfld3d(i,bi,ip,j,bj,jp,k)*       &                       globfld3d(i,bi,ip,j,bj,jp,k)*
224       &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))       &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
225         &                       / forcingPrecond
226                       endif                       endif
227  #endif  #endif
228    #else / * ALLOW_SMOOTH_CORREL2D * /
229                         if ( lxxadxx ) then
230                            globfld3d(i,bi,ip,j,bj,jp,k) =
231         &                       globfld3d(i,bi,ip,j,bj,jp,k)
232         &                       * forcingPrecond
233                         else
234                            globfld3d(i,bi,ip,j,bj,jp,k) =
235         &                       globfld3d(i,bi,ip,j,bj,jp,k)
236         &                       / forcingPrecond
237                         endif
238    #endif / * ALLOW_SMOOTH_CORREL2D * /
239                    else                    else
240                       globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0                       globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
241                    endif                    endif
# Line 305  cph( Line 319  cph(
319       &                 phtmpadmtlm(nveccount)       &                 phtmpadmtlm(nveccount)
320  cph)  cph)
321  #endif  #endif
322    #ifndef ALLOW_SMOOTH_CORREL2D
323  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO  #ifdef ALLOW_NONDIMENSIONAL_CONTROL_IO
324                       if ( lxxadxx ) then                       if ( lxxadxx ) then
325                          globfld3d(i,bi,ip,j,bj,jp,k) =                          globfld3d(i,bi,ip,j,bj,jp,k) =
326       &                       globfld3d(i,bi,ip,j,bj,jp,k)/       &                       globfld3d(i,bi,ip,j,bj,jp,k)/
327       &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))       &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
328         &                       * forcingPrecond
329                       else                       else
330                          globfld3d(i,bi,ip,j,bj,jp,k) =                          globfld3d(i,bi,ip,j,bj,jp,k) =
331       &                       globfld3d(i,bi,ip,j,bj,jp,k)*       &                       globfld3d(i,bi,ip,j,bj,jp,k)*
332       &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))       &                       sqrt(globfld2d(i,bi,ip,j,bj,jp))
333         &                       / forcingPrecond
334                       endif                       endif
335  #endif  #endif
336    #else / * ALLOW_SMOOTH_CORREL2D * /
337                         if ( lxxadxx ) then
338                            globfld3d(i,bi,ip,j,bj,jp,k) =
339         &                       globfld3d(i,bi,ip,j,bj,jp,k)
340         &                       * forcingPrecond
341                         else
342                            globfld3d(i,bi,ip,j,bj,jp,k) =
343         &                       globfld3d(i,bi,ip,j,bj,jp,k)
344         &                       / forcingPrecond
345                         endif
346    #endif / * ALLOW_SMOOTH_CORREL2D * /
347                    else                    else
348                       globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0                       globfld3d(i,bi,ip,j,bj,jp,k) = 0. _d 0
349                    endif                    endif
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22