/[MITgcm]/MITgcm/pkg/admtlm/admtlm_dsvd2model.F
ViewVC logotype

Diff of /MITgcm/pkg/admtlm/admtlm_dsvd2model.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by heimbach, Fri Apr 20 18:46:11 2007 UTC revision 1.6 by gforget, Fri May 30 02:47:25 2008 UTC
# Line 535  c--------------------------------------- Line 535  c---------------------------------------
535       &         weighttype, nwetcglobal, mythid)       &         weighttype, nwetcglobal, mythid)
536  #endif  #endif
537    
538  #ifdef ALLOW_EDTAUX_CONTROL  #ifdef ALLOW_EDDYPSI_CONTROL
539            ivartype    = 25            ivartype    = 25
540            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
541            write(weighttype(1:80),'(a)') "wedtaux"            write(weighttype(1:80),'(a)') "wedtaux"
542            call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,            call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,
543       &         fname_edtaux(ictrlgrad), "maskCtrlW",       &         fname_edtaux(ictrlgrad), "maskCtrlW",
544       &         weighttype, wunit, nwetwglobal, mythid)       &         weighttype, wunit, nwetwglobal, mythid)
 #endif  
545    
 #ifdef ALLOW_EDTAUY_CONTROL  
546            ivartype    = 26            ivartype    = 26
547            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
548            write(weighttype(1:80),'(a)') "wedtauy"            write(weighttype(1:80),'(a)') "wedtauy"
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22