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

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

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

revision 1.33 by gforget, Fri May 30 02:48:28 2008 UTC revision 1.34 by gforget, Tue Jul 13 00:02:06 2010 UTC
# Line 261  C     place holder of obsolete variable Line 261  C     place holder of obsolete variable
261            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
262            write(weighttype(1:80),'(a)') "wtauu"            write(weighttype(1:80),'(a)') "wtauu"
263            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
264    #ifndef ALLOW_ROTATE_UV_CONTROLS
265       &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",       &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlW",
266    #else
267         &         cunit, ivartype, fname_tauu(ictrlgrad), "maskCtrlC",
268    #endif
269       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
270  #endif  #endif
271    
# Line 270  C     place holder of obsolete variable Line 274  C     place holder of obsolete variable
274            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
275            write(weighttype(1:80),'(a)') "wtauv"            write(weighttype(1:80),'(a)') "wtauv"
276            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
277    #ifndef ALLOW_ROTATE_UV_CONTROLS
278       &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",       &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlS",
279    #else
280         &         cunit, ivartype, fname_tauv(ictrlgrad), "maskCtrlC",
281    #endif
282       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
283  #endif  #endif
284    
Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34
  ViewVC Help
Powered by ViewVC 1.1.22