/[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.3 by heimbach, Thu Apr 27 12:49:02 2006 UTC revision 1.4 by heimbach, Thu Feb 1 02:01:25 2007 UTC
# Line 146  c--   Assign file names. Line 146  c--   Assign file names.
146        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)
147        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)
148        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)
149        call ctrl_set_fname(xx_hfacc_file, fname_hfacc, mythid)        call ctrl_set_fname(xx_depth_file, fname_depth, mythid)
150        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)        call ctrl_set_fname(xx_efluxy_file, fname_efluxy, mythid)
151        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)        call ctrl_set_fname(xx_efluxp_file, fname_efluxp, mythid)
152        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)        call ctrl_set_fname(xx_bottomdrag_file, fname_bottomdrag, mythid)
# Line 499  c--------------------------------------- Line 499  c---------------------------------------
499       &         weighttype, nwetcglobal, mythid)       &         weighttype, nwetcglobal, mythid)
500  #endif  #endif
501    
502  #ifdef ALLOW_HFACC_CONTROL  #ifdef ALLOW_DEPTH_CONTROL
503            ivartype    = 20            ivartype    = 20
504            write(weighttype(1:80),'(80a)') ' '            write(weighttype(1:80),'(80a)') ' '
505            write(weighttype(1:80),'(a)') "whfacc"            write(weighttype(1:80),'(a)') "wdepth"
 # ifdef ALLOW_HFACC3D_CONTROL  
           call ctrl_set_unpack_xyz( lxxadxx, cunit, ivartype,  
      &         fname_hfacc(ictrlgrad), "maskCtrlC",  
      &         wunit, nwetcglobal, mythid)  
 # else  
506            call ctrl_set_unpack_xy( lxxadxx, cunit, ivartype,            call ctrl_set_unpack_xy( lxxadxx, cunit, ivartype,
507       &         fname_hfacc(ictrlgrad), "maskCtrlC",       &         fname_depth(ictrlgrad), "maskCtrlC",
508       &         weighttype, weighttype, nwetcglobal, mythid)       &         weighttype, weighttype, nwetcglobal, mythid)
 # endif  
509  #endif  #endif
510    
511  #ifdef ALLOW_EFLUXY0_CONTROL  #ifdef ALLOW_EFLUXY0_CONTROL
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22