/[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.17 by heimbach, Tue Jan 4 22:02:31 2005 UTC revision 1.18 by heimbach, Mon Feb 28 17:29:38 2005 UTC
# Line 127  c--   Assign file names. Line 127  c--   Assign file names.
127        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)
128        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)
129        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)
130          call ctrl_set_fname(xx_edtaux_file, fname_edtaux, mythid)
131          call ctrl_set_fname(xx_edtauy_file, fname_edtauy, mythid)
132    
133  c  c
134  c--     Only the master thread will do I/O.  c--     Only the master thread will do I/O.
# Line 414  C     place holder of obsolete variable Line 416  C     place holder of obsolete variable
416       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
417  #endif  #endif
418    
419    #ifdef ALLOW_EDTAUX_CONTROL
420              ivartype = 25
421              write(weighttype(1:80),'(80a)') ' '
422              write(weighttype(1:80),'(a)') "wedtaux"
423              call ctrl_set_pack_xyz(
424         &         cunit, ivartype, fname_edtaux(ictrlgrad), "maskW",
425         &         weighttype, wunit, lxxadxx, mythid)
426    #endif
427    
428    #ifdef ALLOW_EDTAUY_CONTROL
429              ivartype = 26
430              write(weighttype(1:80),'(80a)') ' '
431              write(weighttype(1:80),'(a)') "wedtauy"
432              call ctrl_set_pack_xyz(
433         &         cunit, ivartype, fname_edtauy(ictrlgrad), "maskS",
434         &         weighttype, wunit, lxxadxx, mythid)
435    #endif
436    
437    
438            close ( cunit )            close ( cunit )
439    
440          _END_MASTER( mythid )          _END_MASTER( mythid )
Legend:
Removed from v.1.17  
changed lines
  Added in v.1.18
  ViewVC Help
Powered by ViewVC 1.1.22