/[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.8 by heimbach, Tue Jun 24 16:07:07 2003 UTC revision 1.9 by heimbach, Thu Jul 24 22:00:18 2003 UTC
# Line 419  c--       Header information. Line 419  c--       Header information.
419            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
420            write(weighttype(1:80),'(a)') "wsst0"            write(weighttype(1:80),'(a)') "wsst0"
421            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
422       &         cunit, ivartype, adfname_sst0, "hFacC", weighttype,       &         cunit, ivartype, adfname_sst, "hFacC", weighttype,
423       &         lxxadxx, mythid)       &         lxxadxx, mythid)
424  #endif  #endif
425    
# Line 428  c--       Header information. Line 428  c--       Header information.
428            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
429            write(weighttype(1:80),'(a)') "wsss0"            write(weighttype(1:80),'(a)') "wsss0"
430            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
431       &         cunit, ivartype, adfname_sss0, "hFacC", weighttype,       &         cunit, ivartype, adfname_sss, "hFacC", weighttype,
432       &         lxxadxx, mythid)       &         lxxadxx, mythid)
433  #endif  #endif
434    
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22