/[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.25 by heimbach, Wed Sep 7 02:45:12 2005 UTC revision 1.26 by heimbach, Thu Jan 5 17:05:42 2006 UTC
# Line 209  C     place holder of obsolete variable Line 209  C     place holder of obsolete variable
209  #ifdef ALLOW_THETA0_CONTROL  #ifdef ALLOW_THETA0_CONTROL
210            ivartype = 1            ivartype = 1
211            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
212            write(weighttype(1:80),'(a)') "wtheta"            write(weighttype(1:80),'(a)') "wthetaLev"
213            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
214       &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_theta(ictrlgrad), "maskCtrlC",
215       &         weighttype, wtheta, lxxadxx, mythid)       &         weighttype, wtheta, lxxadxx, mythid)
# Line 218  C     place holder of obsolete variable Line 218  C     place holder of obsolete variable
218  #ifdef ALLOW_SALT0_CONTROL  #ifdef ALLOW_SALT0_CONTROL
219            ivartype = 2            ivartype = 2
220            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
221            write(weighttype(1:80),'(a)') "wsalt"            write(weighttype(1:80),'(a)') "wsaltLev"
222            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
223       &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_salt(ictrlgrad), "maskCtrlC",
224       &         weighttype, wsalt, lxxadxx, mythid)       &         weighttype, wsalt, lxxadxx, mythid)
Legend:
Removed from v.1.25  
changed lines
  Added in v.1.26
  ViewVC Help
Powered by ViewVC 1.1.22