/[MITgcm]/MITgcm/verification/seaice_obcs/input.tides/mk_tides.m
ViewVC logotype

Diff of /MITgcm/verification/seaice_obcs/input.tides/mk_tides.m

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

revision 1.1 by dimitri, Thu Nov 15 15:55:43 2012 UTC revision 1.2 by dimitri, Thu Nov 15 20:46:52 2012 UTC
# Line 39  for ob={'N','S','E','W'} Line 39  for ob={'N','S','E','W'}
39              end              end
40          end          end
41    
42          % specify (0.2 m/s, 4 hr) for South boundary tidal component 2          % specify (0.1 m/s, 4 hr) for South boundary tidal component 2
43          if strcmp(ob,'S')          if strcmp(ob,'S')
44              if strcmp(fld,'am')              if strcmp(fld,'am')
45                  tmp(:,2) = tmp(:,2) + 0.2;                  tmp(:,2) = tmp(:,2) + 0.1;
46              else              else
47                  tmp(:,2) = tmp(:,2) + 4 * 3600;                  tmp(:,2) = tmp(:,2) + 4 * 3600;
48              end              end
49          end          end
50    
51          % specify (0.3 m/s, 6 hr) for East boundary tidal component 3          % specify (0.1 m/s, 6 hr) for East boundary tidal component 3
52          if strcmp(ob,'E')          if strcmp(ob,'E')
53              if strcmp(fld,'am')              if strcmp(fld,'am')
54                  tmp(:,3) = tmp(:,3) + 0.3;                  tmp(:,3) = tmp(:,3) + 0.1;
55              else              else
56                  tmp(:,3) = tmp(:,3) + 6 * 3600;                  tmp(:,3) = tmp(:,3) + 6 * 3600;
57              end              end
58          end          end
59    
60          % specify (0.4 m/s, 8 hr) for West boundary tidal component 4          % specify (0.1 m/s, 8 hr) for West boundary tidal component 4
61          if strcmp(ob,'W')          if strcmp(ob,'W')
62              if strcmp(fld,'am')              if strcmp(fld,'am')
63                  tmp(:,4) = tmp(:,4) + 0.4;                  tmp(:,4) = tmp(:,4) + 0.1;
64              else              else
65                  tmp(:,4) = tmp(:,4) + 8 * 3600;                  tmp(:,4) = tmp(:,4) + 8 * 3600;
66              end              end
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22