/[MITgcm]/MITgcm/verification/natl_box/code/external_fields_load.F
ViewVC logotype

Diff of /MITgcm/verification/natl_box/code/external_fields_load.F

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

revision 1.4 by cnh, Sun Feb 4 14:38:53 2001 UTC revision 1.5 by adcroft, Tue May 29 14:02:00 2001 UTC
# Line 119  C Now calculate whether it is time to up Line 119  C Now calculate whether it is time to up
119    
120  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
121  C      data for the period ahead and the period behind myTime.  C      data for the period ahead and the period behind myTime.
122         write(0,*)         WRITE(*,*)
123       &  'S/R LOAD_INTERPOLATE_FORCING: Reading new data',myTime,myIter       &  'S/R EXTERNAL_FIELDS_LOAD: Reading new data',myTime,myIter
124    
125        IF ( zonalWindFile .NE. ' '  ) THEN        IF ( zonalWindFile .NE. ' '  ) THEN
126         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.4  
changed lines
  Added in v.1.5
  ViewVC Help
Powered by ViewVC 1.1.22