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

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

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

revision 1.1 by heimbach, Fri Mar 24 22:58:25 2006 UTC revision 1.2 by gforget, Wed Mar 29 21:57:15 2006 UTC
# Line 49  c     == end of interface == Line 49  c     == end of interface ==
49        if ((prof_time(num_file,prof_num).GE.mytime).AND.        if ((prof_time(num_file,prof_num).GE.mytime).AND.
50       & (prof_time(num_file,prof_num).LT.(mytime+deltaTclock))) then       & (prof_time(num_file,prof_num).LT.(mytime+deltaTclock))) then
51    
        if (xC(sNx+1,1,bi,bj).LT.xC(sNx+1,1,bi,bj)) then  
        tmp_lon=2*xC(sNx,1,bi,bj)-xC(sNx-1,1,bi,bj)  
        else  
        tmp_lon=xC(sNx+1,1,bi,bj)  
        endif  
        if ((xC(1,1,bi,bj).LE.prof_lon(num_file,prof_num)).AND.  
      &  (tmp_lon.GT.prof_lon(num_file,prof_num)).AND.  
      &  (yC(1,1,bi,bj).LE.prof_lat(num_file,prof_num)).AND.  
      &  (yC(1,sNy+1,bi,bj).GT.prof_lat(num_file,prof_num))  
      & ) then  
   
52        do num_var=1,4        do num_var=1,4
53        do k=1,NLEVELMAX        do k=1,NLEVELMAX
54        prof_traj1D(k)=0        prof_traj1D(k)=0
# Line 69  c     == end of interface == Line 58  c     == end of interface ==
58                call profiles_interp(prof_traj1D,                call profiles_interp(prof_traj1D,
59       & prof_lon(num_file,prof_num), prof_lat(num_file,prof_num),       & prof_lon(num_file,prof_num), prof_lat(num_file,prof_num),
60       & num_var,num_file,mytime,myThid)       & num_var,num_file,mytime,myThid)
   
61                 call active_write_profile(num_file,                 call active_write_profile(num_file,
62       &profdepthno(num_file),prof_traj1D,num_var,       &profdepthno(num_file),prof_traj1D,num_var,
63       &prof_num,optimcycle,mythid,profiles_dummy(num_file,num_var))       &prof_num,optimcycle,mythid,profiles_dummy(num_file,num_var))
64        endif        endif
65        enddo        enddo
66    
       endif !if ((xC(1,1,bi,bj).LE.prof_lon ...  
67        endif !if ((prof_time...        endif !if ((prof_time...
68        endif !if (ProfNo(num_file).NE.0) then        endif !if (ProfNo(num_file).NE.0) then
69        enddo !do prof_num...        enddo !do prof_num...
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22