global_ocean.cs32x15/input.viscA4/mk_nh_pick.m

e6f4278565 Jean*0001
                0002 nit=86400;
                0003 namInp='pickup';
                0004 namInp=[namInp,'_nh'];
                0005
                0006 wrfile=sprintf([namInp,'.%10.10i'],nit);
                0007
                0008 nc=32;nr=15;
                0009 va=zeros(nc*6,nc,nr,2);
                0010
                0011 fid=fopen(wrfile,'w','b');
                0012 fwrite(fid,va,'real*8');
                0013 fclose(fid);
                0014
                0015 fprintf([' ==> write file: ',wrfile,'\n']);