/[MITgcm]/MITgcm/model/src/external_fields_load.F
ViewVC logotype

Diff of /MITgcm/model/src/external_fields_load.F

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

revision 1.6 by heimbach, Tue Apr 10 22:35:25 2001 UTC revision 1.7 by adcroft, Tue May 29 14:01:37 2001 UTC
# Line 120  C Now calculate whether it is time to up Line 120  C Now calculate whether it is time to up
120    
121  C      If the above condition is met then we need to read in  C      If the above condition is met then we need to read in
122  C      data for the period ahead and the period behind myTime.  C      data for the period ahead and the period behind myTime.
123         write(*,*)         WRITE(*,*)
124       &  'S/R LOAD_INTERPOLATE_FORCING: Reading new data',myTime,myIter       &  'S/R EXTERNAL_FIELDS_LOAD: Reading new data',myTime,myIter
125    
126        IF ( zonalWindFile .NE. ' '  ) THEN        IF ( zonalWindFile .NE. ' '  ) THEN
127         CALL READ_REC_XY_RS( zonalWindFile,taux0,intime0,myIter,myThid )         CALL READ_REC_XY_RS( zonalWindFile,taux0,intime0,myIter,myThid )
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22