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

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

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

revision 1.5 by gforget, Fri Jul 14 20:19:36 2006 UTC revision 1.6 by gforget, Fri Jul 14 22:12:23 2006 UTC
# Line 54  c--   == end of interface == Line 54  c--   == end of interface ==
54    
55        do m=1,NLEVELMAX        do m=1,NLEVELMAX
56        do l=1,1000        do l=1,1000
57        do k=1,4        do k=1,6
58        profiles_data_buff(m,l,k,bi,bj)=0        profiles_data_buff(m,l,k,bi,bj)=0
59        profiles_weight_buff(m,l,k,bi,bj)=0        profiles_weight_buff(m,l,k,bi,bj)=0
60        enddo        enddo
# Line 208  c      DO bj = myByLo(myThid), myByHi(my Line 208  c      DO bj = myByLo(myThid), myByHi(my
208        print*,"fid dimid ProfNo(num_file,bi,bj)",fid, dimid,        print*,"fid dimid ProfNo(num_file,bi,bj)",fid, dimid,
209       & num_file, ProfNo(num_file,bi,bj)       & num_file, ProfNo(num_file,bi,bj)
210    
211        do k=1,4        do k=1,6
212        prof_num_var_cur(num_file,k,bi,bj)=0        prof_num_var_cur(num_file,k,bi,bj)=0
213        enddo        enddo
214        prof_num_var_tot(num_file,bi,bj)=0        prof_num_var_tot(num_file,bi,bj)=0
# Line 254  c3) detect available data types Line 254  c3) detect available data types
254        else        else
255        vec_quantities(num_file,4,bi,bj)=.FALSE.        vec_quantities(num_file,4,bi,bj)=.FALSE.
256        endif        endif
257          err = NF_INQ_VARID(fid,'prof_ptr', varid1 )
258          if (err.EQ.NF_NOERR) then
259          vec_quantities(num_file,5,bi,bj)=.TRUE.
260          prof_num_var_tot(num_file,bi,bj)=
261         & prof_num_var_tot(num_file,bi,bj)+1
262          prof_num_var_cur(num_file,5,bi,bj)=
263         & prof_num_var_tot(num_file,bi,bj)
264          else
265          vec_quantities(num_file,5,bi,bj)=.FALSE.
266          endif
267          err = NF_INQ_VARID(fid,'prof_ssh', varid1 )
268          if (err.EQ.NF_NOERR) then
269          vec_quantities(num_file,6,bi,bj)=.TRUE.
270          prof_num_var_tot(num_file,bi,bj)=
271         & prof_num_var_tot(num_file,bi,bj)+1
272          prof_num_var_cur(num_file,6,bi,bj)=
273         & prof_num_var_tot(num_file,bi,bj)
274          else
275          vec_quantities(num_file,6,bi,bj)=.FALSE.
276          endif
277    
278    
279  C===========================================================  C===========================================================
# Line 324  c      ENDDO Line 344  c      ENDDO
344  C===========================================================  C===========================================================
345        else        else
346        ProfNo(num_file,bi,bj)=0        ProfNo(num_file,bi,bj)=0
347        do k=1,4        do k=1,6
348        prof_num_var_cur(num_file,k,bi,bj)=0        prof_num_var_cur(num_file,k,bi,bj)=0
349        vec_quantities(num_file,k,bi,bj)=.FALSE.        vec_quantities(num_file,k,bi,bj)=.FALSE.
350        enddo        enddo
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22