/[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.4 by heimbach, Thu Feb 1 02:01:25 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"
# Line 556  c--------------------------------------- Line 554  c---------------------------------------
554  #ifdef ALLOW_UVEL0_CONTROL  #ifdef ALLOW_UVEL0_CONTROL
555            ivartype = 27            ivartype = 27
556            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
557            write(weighttype(1:80),'(a)') "wuvel"            write(weighttype(1:80),'(a)') "wuvvel"
558            call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,            call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,
559       &         fname_uvel(ictrlgrad), "maskCtrlW",       &         fname_uvel(ictrlgrad), "maskCtrlW",
560       &         weighttype, wunit, nwetwglobal, mythid)       &         weighttype, wuvvel, nwetwglobal, mythid)
561  #endif  #endif
562    
563  #ifdef ALLOW_VVEL0_CONTROL  #ifdef ALLOW_VVEL0_CONTROL
564            ivartype = 28            ivartype = 28
565            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
566            write(weighttype(1:80),'(a)') "wvvel"            write(weighttype(1:80),'(a)') "wuvvel"
567            call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,            call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,
568       &         fname_vvel(ictrlgrad), "maskCtrlS",       &         fname_vvel(ictrlgrad), "maskCtrlS",
569       &         weighttype, wunit, nwetsglobal, mythid)       &         weighttype, wuvvel, nwetsglobal, mythid)
570  #endif  #endif
571    
572  #ifdef ALLOW_ETAN0_CONTROL  #ifdef ALLOW_ETAN0_CONTROL
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22