/[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.31 by dfer, Tue Jan 15 19:56:27 2008 UTC revision 1.32 by gforget, Sat Feb 2 02:34:50 2008 UTC
# Line 130  c--   Assign file names. Line 130  c--   Assign file names.
130        call ctrl_set_fname(xx_obcse_file, fname_obcse, mythid)        call ctrl_set_fname(xx_obcse_file, fname_obcse, mythid)
131        call ctrl_set_fname(xx_diffkr_file, fname_diffkr, mythid)        call ctrl_set_fname(xx_diffkr_file, fname_diffkr, mythid)
132        call ctrl_set_fname(xx_kapgm_file, fname_kapgm, mythid)        call ctrl_set_fname(xx_kapgm_file, fname_kapgm, mythid)
133          call ctrl_set_fname(xx_kapredi_file, fname_kapredi, mythid)
134        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)        call ctrl_set_fname(xx_tr1_file, fname_tr1, mythid)
135        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)        call ctrl_set_fname(xx_sst_file, fname_sst, mythid)
136        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)        call ctrl_set_fname(xx_sss_file, fname_sss, mythid)
# Line 606  C     place holder of obsolete variable Line 607  C     place holder of obsolete variable
607       &         "maskCtrlC", weighttype, lxxadxx, mythid)       &         "maskCtrlC", weighttype, lxxadxx, mythid)
608  #endif  #endif
609    
610    #ifdef ALLOW_KAPREDI_CONTROL
611              ivartype = 44
612              write(weighttype(1:80),'(80a)') ' '
613              write(weighttype(1:80),'(a)') "wkapredi"
614              call ctrl_set_pack_xyz(
615         &         cunit, ivartype, fname_kapredi(ictrlgrad), "maskCtrlC",
616         &         weighttype, wkapredi, lxxadxx, mythid)
617    #endif
618    
619            close ( cunit )            close ( cunit )
620    
621          _END_MASTER( mythid )          _END_MASTER( mythid )
Legend:
Removed from v.1.31  
changed lines
  Added in v.1.32
  ViewVC Help
Powered by ViewVC 1.1.22