/[MITgcm]/MITgcm/pkg/profiles/profiles_init_ncfile.F
ViewVC logotype

Diff of /MITgcm/pkg/profiles/profiles_init_ncfile.F

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

revision 1.6 by gforget, Wed Oct 25 01:15:54 2006 UTC revision 1.7 by jmc, Tue Oct 9 00:07:59 2007 UTC
# Line 1  Line 1 
1    C $Header$
2  C $Name$  C $Name$
3    
4  #include "PROFILES_OPTIONS.h"  #include "PROFILES_OPTIONS.h"
# Line 49  c1) creation : Line 50  c1) creation :
50        err = NF_INQ_VARID(fid1,prof_names(num_var), varid0 )        err = NF_INQ_VARID(fid1,prof_names(num_var), varid0 )
51        if (err.EQ.NF_NOERR) then        if (err.EQ.NF_NOERR) then
52    
53        err = NF_DEF_VAR (fid2,prof_names(num_var), NF_DOUBLE,        err = NF_DEF_VAR (fid2,prof_names(num_var), NF_DOUBLE,
54       & 2,vecid,varid(2+(num_var-1)*2))       & 2,vecid,varid(2+(num_var-1)*2))
55        err = NF_PUT_ATT_DOUBLE(fid2, varid(2+(num_var-1)*2),'_FillValue',        err = NF_PUT_ATT_DOUBLE(fid2, varid(2+(num_var-1)*2),'_FillValue',
56       & NF_DOUBLE,1, 0. _d 0 )       & NF_DOUBLE,1, 0. _d 0 )
57        err = NF_DEF_VAR (fid2,prof_namesmask(num_var),        err = NF_DEF_VAR (fid2,prof_namesmask(num_var),
58       & NF_DOUBLE, 2,vecid, varid(3+(num_var-1)*2))       & NF_DOUBLE, 2,vecid, varid(3+(num_var-1)*2))
59        err = NF_PUT_ATT_DOUBLE(fid2,varid(3+(num_var-1)*2),'_FillValue',        err = NF_PUT_ATT_DOUBLE(fid2,varid(3+(num_var-1)*2),'_FillValue',
60       & NF_DOUBLE,1, 0. _d 0)       & NF_DOUBLE,1, 0. _d 0)
61    
62        endif        endif
63        enddo        enddo
64    
65        err=NF_ENDDEF(fid2)        err=NF_ENDDEF(fid2)
66        err=NF_CLOSE(fid2)        err=NF_CLOSE(fid2)
# Line 77  c1) creation : Line 78  c1) creation :
78         enddo         enddo
79  #ifdef _BYTESWAPIO  #ifdef _BYTESWAPIO
80              call MDS_BYTESWAPR8(Zlength+1,tmp_vec)              call MDS_BYTESWAPR8(Zlength+1,tmp_vec)
81  #endif      #endif
82         do irec=length,1,-1         do irec=length,1,-1
83         do num_var=prof_num_var_tot(num_file,bi,bj),1,-1         do num_var=prof_num_var_tot(num_file,bi,bj),1,-1
84         write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj)         write(fid2,rec=((irec-1)*prof_num_var_tot(num_file,bi,bj)
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22