/[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.32 by gforget, Sat Feb 2 02:34:50 2008 UTC revision 1.33 by gforget, Fri May 30 02:48:28 2008 UTC
# Line 436  C     place holder of obsolete variable Line 436  C     place holder of obsolete variable
436       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
437  #endif  #endif
438    
439  #ifdef ALLOW_EDTAUX_CONTROL  #ifdef ALLOW_EDDYPSI_CONTROL
440            ivartype = 25            ivartype = 25
441            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
442            write(weighttype(1:80),'(a)') "wedtaux"            write(weighttype(1:80),'(a)') "wedtaux"
443            call ctrl_set_pack_xyz(            call ctrl_set_pack_xyz(
444       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",       &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskCtrlW",
445       &         weighttype, wedtaux, lxxadxx, mythid)       &         weighttype, wedtaux, lxxadxx, mythid)
 #endif  
446    
 #ifdef ALLOW_EDTAUY_CONTROL  
447            ivartype = 26            ivartype = 26
448            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
449            write(weighttype(1:80),'(a)') "wedtauy"            write(weighttype(1:80),'(a)') "wedtauy"
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22