Parent Directory | Revision Log | Revision Graph
checkpoint47b_post Merging from release1_p9: o pkg/seaice - removed GOTO's and added taf directives - double precision constants to reduce the g77 (Linux) to F77 (SGI) differences reported in release1_p8 o tools/genmake - added SGI options o verification/testscript - updated to that of checkpoint47a_post o verification/global_ocean.90x40x15/input/eedata - modified for SGI f77 compatibility o verification/lab_sea - added description of sea-ice model - added missing matlab routines - added test of thermodynamics parallelization Modified Files: doc/tag-index pkg/seaice/SEAICE_FFIELDS.h pkg/seaice/SEAICE_PARAMS.h pkg/seaice/adi.F pkg/seaice/advect.F pkg/seaice/budget.F pkg/seaice/diffus.F pkg/seaice/dynsolver.F pkg/seaice/groatb.F pkg/seaice/growth.F pkg/seaice/lsr.F pkg/seaice/ostres.F pkg/seaice/seaice_do_diags.F pkg/seaice/seaice_get_forcing.F pkg/seaice/seaice_init.F pkg/seaice/seaice_model.F pkg/seaice/seaice_readparms.F tools/genmake verification/global_ocean.90x40x15/input/eedata verification/lab_sea/README verification/lab_sea/matlab/lookat_exp1.m verification/lab_sea/matlab/lookat_exp2.m verification/lab_sea/matlab/lookat_exp3.m verification/lab_sea/matlab/lookat_exp4.m verification/lab_sea/matlab/lookat_exp5.m verification/lab_sea/matlab/lookat_exp6.m verification/lab_sea/results/AREAtave.0000000010.data verification/lab_sea/results/HEFFtave.0000000010.data verification/lab_sea/results/UICEtave.0000000010.data verification/lab_sea/results/VICEtave.0000000010.data verification/lab_sea/results/output.txt Added Files: verification/lab_sea/seaice.ps verification/lab_sea/matlab/lookat_exp7.m verification/lab_sea/matlab/mmax.m verification/lab_sea/matlab/mypcolor.m verification/lab_sea/matlab/myquiver.m verification/lab_sea/matlab/readbin.m verification/lab_sea/matlab/wysiwyg.m Removed Files: verification/lab_sea/code/KPP_OPTIONS.h
1 | dimitri | 1.2 | function h=mypcolor(x,y,z) |
2 | % mypcolor(x,y,z) simulate pcolor using image (much faster) | ||
3 | |||
4 | if nargin == 1 | ||
5 | h=image(x,'CDataMapping','scaled'); | ||
6 | elseif nargin ==3 | ||
7 | dx=diff(x); | ||
8 | dy=diff(y); | ||
9 | if min(dx)==max(dx) & min(dy)==max(dy) | ||
10 | h=image(x,y,z,'CDataMapping','scaled'); | ||
11 | else | ||
12 | dx=min(x):min(abs(dx)):max(x); | ||
13 | dy=min(y):min(abs(dy)):max(y); | ||
14 | dz=interp2(x,y,z,dx,dy'); | ||
15 | h=image(dx,dy,dz,'CDataMapping','scaled'); | ||
16 | end | ||
17 | else | ||
18 | error('wrong number of arguments') | ||
19 | end | ||
20 | set(gca,'ydir','normal') |
ViewVC Help | |
Powered by ViewVC 1.1.22 |