/[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.27 by heimbach, Fri May 12 13:35:37 2006 UTC revision 1.28 by heimbach, Wed Jun 7 01:55:14 2006 UTC
# Line 126  c--   Assign file names. Line 126  c--   Assign file names.
126        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)
127        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)
128        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)
129        call ctrl_set_fname(xx_hfacc_file, fname_hfacc, mythid)        call ctrl_set_fname(xx_depth_file, fname_depth, mythid)
130        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)
131        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)
132        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)
# Line 377  C     place holder of obsolete variable Line 377  C     place holder of obsolete variable
377       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
378  #endif  #endif
379    
380  #ifdef ALLOW_HFACC_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
381            ivartype = 20            ivartype = 20
382            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
383            write(weighttype(1:80),'(a)') "whfacc"            write(weighttype(1:80),'(a)') "wdepth"
 # ifdef ALLOW_HFACC3D_CONTROL  
           call ctrl_set_pack_xyz(  
      &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",  
      &         weighttype, wunit, lxxadxx, mythid)  
 # else  
384            call ctrl_set_pack_xy(            call ctrl_set_pack_xy(
385       &         cunit, ivartype, fname_hfacc(ictrlgrad), "maskCtrlC",       &         cunit, ivartype, fname_depth(ictrlgrad), "maskCtrlC",
386       &         weighttype, lxxadxx, mythid)       &         weighttype, lxxadxx, mythid)
387  # endif  #endif /* ALLOW_DEPTH_CONTROL */
 #endif  
388    
389  #ifdef ALLOW_EFLUXY0_CONTROL  #ifdef ALLOW_EFLUXY0_CONTROL
390            ivartype = 21            ivartype = 21
Legend:
Removed from v.1.27  
changed lines
  Added in v.1.28
  ViewVC Help
Powered by ViewVC 1.1.22