/[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.5 by heimbach, Fri Apr 20 18:46:11 2007 UTC
# Line 556  c--------------------------------------- Line 556  c---------------------------------------
556  #ifdef ALLOW_UVEL0_CONTROL  #ifdef ALLOW_UVEL0_CONTROL
557            ivartype = 27            ivartype = 27
558            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
559            write(weighttype(1:80),'(a)') "wuvel"            write(weighttype(1:80),'(a)') "wuvvel"
560            call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,            call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,
561       &         fname_uvel(ictrlgrad), "maskCtrlW",       &         fname_uvel(ictrlgrad), "maskCtrlW",
562       &         weighttype, wunit, nwetwglobal, mythid)       &         weighttype, wuvvel, nwetwglobal, mythid)
563  #endif  #endif
564    
565  #ifdef ALLOW_VVEL0_CONTROL  #ifdef ALLOW_VVEL0_CONTROL
566            ivartype = 28            ivartype = 28
567            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
568            write(weighttype(1:80),'(a)') "wvvel"            write(weighttype(1:80),'(a)') "wuvvel"
569            call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,            call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,
570       &         fname_vvel(ictrlgrad), "maskCtrlS",       &         fname_vvel(ictrlgrad), "maskCtrlS",
571       &         weighttype, wunit, nwetsglobal, mythid)       &         weighttype, wuvvel, nwetsglobal, mythid)
572  #endif  #endif
573    
574  #ifdef ALLOW_ETAN0_CONTROL  #ifdef ALLOW_ETAN0_CONTROL
Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22