/[MITgcm]/MITgcm/pkg/flt/flt_main.F
ViewVC logotype

Diff of /MITgcm/pkg/flt/flt_main.F

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

revision 1.3 by jmc, Sun Jan 4 00:58:23 2009 UTC revision 1.4 by jmc, Sun Jan 25 21:09:59 2009 UTC
# Line 95  c         WRITE(0,*) ' af call flt_runga Line 95  c         WRITE(0,*) ' af call flt_runga
95    
96  C     check if exchanges between tiles are necessary  C     check if exchanges between tiles are necessary
97    
98           IF (Nx .NE. sNx .OR. Ny .NE. sNy) THEN  c        IF (Nx .NE. sNx .OR. Ny .NE. sNy) THEN
99              CALL TIMER_START('FLOATS EXCHG       [FLT  LOOP]',myThid)           CALL TIMER_START('FLOATS EXCHG       [FLT  LOOP]',myThid)
100              CALL FLT_EXCHG( myTime, myIter, myThid )           CALL FLT_EXCHG( myTime, myIter, myThid )
101              CALL TIMER_STOP ('FLOATS EXCHG       [FLT  LOOP]',myThid)           CALL TIMER_STOP ('FLOATS EXCHG       [FLT  LOOP]',myThid)
102           ENDIF  c        ENDIF
103    
104  C     store profiles every flt_int_prof time steps:  C     store profiles every flt_int_prof time steps:
105  C     and move floats up and down  C     and move floats up and down
106    
107           IF ( MOD(myTime,flt_int_prof).EQ.0. ) THEN           IF ( MOD(myTime,flt_int_prof).EQ.0. ) THEN
108              CALL TIMER_START('FLOATS UP          [FLT  LOOP]',myThid)             CALL TIMER_START('FLOATS UP          [FLT  LOOP]',myThid)
109              CALL FLT_UP( myTime, myIter, myThid )             CALL FLT_UP( myTime, myIter, myThid )
110              CALL TIMER_STOP ('FLOATS UP          [FLT  LOOP]',myThid)             CALL TIMER_STOP ('FLOATS UP          [FLT  LOOP]',myThid)
111           ENDIF           ENDIF
112    
113  c         WRITE(0,*) ' bf call flt_down', myIter  c         WRITE(0,*) ' bf call flt_down', myIter
114              CALL TIMER_START('FLOATS DOWN        [FLT  LOOP]',myThid)             CALL TIMER_START('FLOATS DOWN        [FLT  LOOP]',myThid)
115              CALL FLT_DOWN( myTime, myIter, myThid )             CALL FLT_DOWN( myTime, myIter, myThid )
116              CALL TIMER_STOP ('FLOATS DOWN        [FLT  LOOP]',myThid)             CALL TIMER_STOP ('FLOATS DOWN        [FLT  LOOP]',myThid)
117  c         WRITE(0,*) ' af call flt_down', myIter  c         WRITE(0,*) ' af call flt_down', myIter
118    
119  C     store particles every flt_int_traj timesteps:  C     store particles every flt_int_traj timesteps:
120    
121           IF ( MOD(myTime,flt_int_traj).EQ.0. ) THEN           IF ( MOD(myTime,flt_int_traj).EQ.0. ) THEN
122  c         WRITE(0,*) ' bf call flt_traj', myIter  c         WRITE(0,*) ' bf call flt_traj', myIter
123              CALL TIMER_START('FLOATS TRAJ        [FLT  LOOP]',myThid)             CALL TIMER_START('FLOATS TRAJ        [FLT  LOOP]',myThid)
124              CALL FLT_TRAJ( myTime, myIter, myThid )             CALL FLT_TRAJ( myTime, myIter, myThid )
125              CALL TIMER_STOP ('FLOATS TRAJ        [FLT  LOOP]',myThid)             CALL TIMER_STOP ('FLOATS TRAJ        [FLT  LOOP]',myThid)
126  c         WRITE(0,*) ' af call flt_traj', myIter  c         WRITE(0,*) ' af call flt_traj', myIter
127           ENDIF           ENDIF
128    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22