/[MITgcm]/MITgcm/pkg/rbcs/rbcs_fields_load.F
ViewVC logotype

Diff of /MITgcm/pkg/rbcs/rbcs_fields_load.F

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

revision 1.2 by stephd, Mon Dec 19 19:14:34 2005 UTC revision 1.3 by heimbach, Mon Jan 2 21:17:02 2006 UTC
# Line 80  C     aWght, bWght :: Interpolation weig Line 80  C     aWght, bWght :: Interpolation weig
80    
81  #ifdef ALLOW_RBCS  #ifdef ALLOW_RBCS
82        CALL TIMER_START('RBCS_FIELDS_LOAD      [I/O]', myThid)        CALL TIMER_START('RBCS_FIELDS_LOAD      [I/O]', myThid)
83        prec = precFloat32        prec = readBinaryPrec
84    
85    
86  C First call requires that we initialize everything to zero for safety  C First call requires that we initialize everything to zero for safety
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22