/[MITgcm]/MITgcm/pkg/ctrl/ctrl_hfacc_ini.F
ViewVC logotype

Diff of /MITgcm/pkg/ctrl/ctrl_hfacc_ini.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.5 by jmc, Tue Oct 9 00:00:00 2007 UTC revision 1.6 by jmc, Tue Apr 28 18:09:28 2009 UTC
# Line 111  C     this will be no longer necessary Line 111  C     this will be no longer necessary
111        _BEGIN_MASTER( myThid )        _BEGIN_MASTER( myThid )
112        CALL READ_FLD_XYZ_RL( 'hFacC', ' ', hFacC, 0, myThid )        CALL READ_FLD_XYZ_RL( 'hFacC', ' ', hFacC, 0, myThid )
113        _END_MASTER( myThid )        _END_MASTER( myThid )
114  Cml      _EXCH_XYZ_R8( hFacC ,myThid )        _EXCH_XYZ_RS( hFacC ,myThid )
       _EXCH_XYZ_R4( hFacC ,myThid )  
115    
116  C--  C--
117        il=ilnblnk( xx_hfacc_file )        il=ilnblnk( xx_hfacc_file )
# Line 156  c                  end if Line 155  c                  end if
155  c--   Update the tile edges.  c--   Update the tile edges.
156    
157        CALL dummy_in_hfac( 'C', 0, myThid )        CALL dummy_in_hfac( 'C', 0, myThid )
158  Cml      _EXCH_XYZ_R8( hFacC, myThid )        _EXCH_XYZ_RS( hFacC, myThid )
       _EXCH_XYZ_R4( hFacC, myThid )  
159        CALL dummy_in_hfac( 'C', 1, myThid )        CALL dummy_in_hfac( 'C', 1, myThid )
160    
161  #endif /* ALLOW_HFACC_CONTROL */  #endif /* ALLOW_HFACC_CONTROL */
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22