/[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.24 by heimbach, Wed Aug 31 00:03:30 2005 UTC revision 1.25 by heimbach, Wed Sep 7 02:45:12 2005 UTC
# Line 362  C     place holder of obsolete variable Line 362  C     place holder of obsolete variable
362  #if (defined (ALLOW_SST_CONTROL) || defined (ALLOW_SST0_CONTROL))  #if (defined (ALLOW_SST_CONTROL) || defined (ALLOW_SST0_CONTROL))
363            ivartype = 18            ivartype = 18
364            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
365            write(weighttype(1:80),'(a)') "wsst0"            write(weighttype(1:80),'(a)') "wsst"
366            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
367       &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_sst(ictrlgrad), "maskCtrlC",
368       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
# Line 371  C     place holder of obsolete variable Line 371  C     place holder of obsolete variable
371  #if (defined (ALLOW_SSS_CONTROL) || defined (ALLOW_SSS0_CONTROL))  #if (defined (ALLOW_SSS_CONTROL) || defined (ALLOW_SSS0_CONTROL))
372            ivartype = 19            ivartype = 19
373            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
374            write(weighttype(1:80),'(a)') "wsss0"            write(weighttype(1:80),'(a)') "wsss"
375            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
376       &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_sss(ictrlgrad), "maskCtrlC",
377       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25
  ViewVC Help
Powered by ViewVC 1.1.22