/[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.19 by heimbach, Thu Apr 7 23:38:43 2005 UTC revision 1.20 by heimbach, Tue Apr 12 22:22:21 2005 UTC
# Line 284  C     place holder of obsolete variable Line 284  C     place holder of obsolete variable
284            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
285            write(weighttype(1:80),'(a)') "wuwind"            write(weighttype(1:80),'(a)') "wuwind"
286            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
287       &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlW",       &         cunit, ivartype, fname_uwind(ictrlgrad), "maskCtrlC",
288       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
289  #endif  #endif
290    
# Line 293  C     place holder of obsolete variable Line 293  C     place holder of obsolete variable
293            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
294            write(weighttype(1:80),'(a)') "wvwind"            write(weighttype(1:80),'(a)') "wvwind"
295            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
296       &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlS",       &         cunit, ivartype, fname_vwind(ictrlgrad), "maskCtrlC",
297       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
298  #endif  #endif
299    
Legend:
Removed from v.1.19  
changed lines
  Added in v.1.20
  ViewVC Help
Powered by ViewVC 1.1.22