/[MITgcm]/MITgcm/model/src/do_atmospheric_phys.F
ViewVC logotype

Diff of /MITgcm/model/src/do_atmospheric_phys.F

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

revision 1.1 by jmc, Tue Jul 6 21:12:51 2004 UTC revision 1.2 by molod, Fri Jul 30 15:15:16 2004 UTC
# Line 50  C AMM Line 50  C AMM
50  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
51        if( useFIZHI) then        if( useFIZHI) then
52           CALL TIMER_START('FIZHI          [DO_ATMOSPHERIC_PHYS]',myThid)           CALL TIMER_START('FIZHI          [DO_ATMOSPHERIC_PHYS]',myThid)
          CALL FIZHI_UPDATE_TIME ( myIter, deltaTclock )  
53           CALL UPDATE_OCEAN_EXPORTS ( myTime, myIter, myThid )           CALL UPDATE_OCEAN_EXPORTS ( myTime, myIter, myThid )
54           CALL UPDATE_EARTH_EXPORTS ( myTime, myIter, myThid )           CALL UPDATE_EARTH_EXPORTS ( myTime, myIter, myThid )
55           CALL UPDATE_CHEMISTRY_EXPORTS ( myTime, myIter, myThid )           CALL UPDATE_CHEMISTRY_EXPORTS ( myTime, myIter, myThid )
56           CALL FIZHI_WRAPPER ( myTime, myIter, myThid )           CALL FIZHI_WRAPPER ( myTime, myIter, myThid )
57           CALL STEP_FIZHI_FG ( myTime, myIter, myThid, deltaTtracer )           CALL STEP_FIZHI_FG ( myTime, myIter, myThid, deltaTtracer )
58             CALL FIZHI_UPDATE_TIME ( myIter, deltaTclock )
59           CALL TIMER_STOP ('FIZHI          [DO_ATMOSPHERIC_PHYS]',myThid)           CALL TIMER_STOP ('FIZHI          [DO_ATMOSPHERIC_PHYS]',myThid)
60        endif        endif
61  #endif  #endif
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22