/[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.6 by gforget, Fri Jul 14 22:12:23 2006 UTC revision 1.7 by gforget, Wed Oct 25 01:15:54 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,6        do k=1,NVARMAX
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,6        do k=1,NVARMAX
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 344  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,6        do k=1,NVARMAX
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.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22