/[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.5 by molod, Mon May 16 20:22:11 2005 UTC revision 1.10 by jmc, Mon Jan 21 23:07:10 2013 UTC
# Line 10  C     !INTERFACE: Line 10  C     !INTERFACE:
10        SUBROUTINE DO_ATMOSPHERIC_PHYS(myTime, myIter, myThid)        SUBROUTINE DO_ATMOSPHERIC_PHYS(myTime, myIter, myThid)
11  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
12  C     *==========================================================*  C     *==========================================================*
13  C     | SUBROUTINE DO_ATMOSPHERIC_PHYS                                  C     | SUBROUTINE DO_ATMOSPHERIC_PHYS
14  C     | o Controlling routine for atmospheric physics and  C     | o Controlling routine for atmospheric physics and
15  C     |   parameterization  C     |   parameterization
16  C     *==========================================================*  C     *==========================================================*
17  C     | o originally, part of S/R thermodynamics & forward_step  C     | o originally, part of S/R thermodynamics & forward_step
# Line 27  C     == Global variables === Line 27  C     == Global variables ===
27    
28  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
29  C     == Routine arguments ==  C     == Routine arguments ==
30  C     myTime - Current time in simulation  C     myTime :: Current time in simulation
31  C     myIter - Current iteration number in simulation  C     myIter :: Current iteration number in simulation
32  C     myThid - Thread number for this instance of the routine.  C     myThid :: my Thread Id number
33        _RL myTime        _RL myTime
34        INTEGER myIter        INTEGER myIter
35        INTEGER myThid        INTEGER myThid
36    CEOP
37    
38  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
39  C     == Local variables  C     == Local variables
40  C     bi, bj  C     bi, bj
       INTEGER bi, bj  
   
 CEOP  
41    
42  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
43        IF ( debugLevel .GE. debLevB )        IF (debugMode) CALL DEBUG_ENTER('DO_ATMOSPHERIC_PHYS',myThid)
      &   CALL DEBUG_ENTER('DO_ATMOSPHERIC_PHYS',myThid)  
44  #endif  #endif
45    
 C AMM  
46  #ifdef ALLOW_FIZHI  #ifdef ALLOW_FIZHI
47        if( useFIZHI) then        IF ( useFIZHI ) THEN
48           CALL TIMER_START('FIZHI          [DO_ATMOSPHERIC_PHYS]',myThid)          CALL TIMER_START('FIZHI          [DO_ATMOSPHERIC_PHYS]',myThid)
49           CALL UPDATE_OCEAN_EXPORTS ( myTime, myIter, myThid )          CALL UPDATE_OCEAN_EXPORTS ( myTime, myIter, myThid )
50           CALL UPDATE_EARTH_EXPORTS ( myTime, myIter, myThid )          CALL UPDATE_EARTH_EXPORTS ( myTime, myIter, myThid )
51           CALL UPDATE_CHEMISTRY_EXPORTS ( myTime, myIter, myThid )          CALL UPDATE_CHEMISTRY_EXPORTS ( myTime, myIter, myThid )
52           CALL FIZHI_WRAPPER ( myTime, myIter, myThid )          CALL FIZHI_WRAPPER ( myTime, myIter, myThid )
53           CALL STEP_FIZHI_FG ( myTime, myIter, myThid, dTtracerLev(1) )          CALL STEP_FIZHI_FG ( myTime, myIter, myThid, dTtracerLev(1) )
54           CALL TIMER_STOP ('FIZHI          [DO_ATMOSPHERIC_PHYS]',myThid)          CALL FIZHI_UPDATE_TIME ( myIter, myThid, deltaTClock )
55        endif          CALL TIMER_STOP ('FIZHI          [DO_ATMOSPHERIC_PHYS]',myThid)
56          ENDIF
57  #endif  #endif
 C AMM  
58    
59  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
60        DO bj=myByLo(myThid),myByHi(myThid)        IF ( useAIM ) THEN
        DO bi=myBxLo(myThid),myBxHi(myThid)  
   
61  C       AIM - atmospheric intermediate model, physics package code.  C       AIM - atmospheric intermediate model, physics package code.
         IF ( useAIM ) THEN  
62  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
63           IF ( debugLevel .GE. debLevB )          IF (debugMode) CALL DEBUG_CALL('AIM_DO_PHYSICS',myThid)
      &     CALL DEBUG_CALL('AIM_DO_PHYSICS',myThid)  
64  #endif  #endif
65           CALL TIMER_START('AIM_DO_PHYSICS [DO_ATMOSPHERIC_PHYS]',myThid)          CALL TIMER_START('AIM_DO_PHYSICS [DO_ATMOSPHERIC_PHYS]',myThid)
66           CALL AIM_DO_PHYSICS( bi, bj, myTime, myIter, myThid )          CALL AIM_DO_PHYSICS( myTime, myIter, myThid )
67           CALL TIMER_STOP( 'AIM_DO_PHYSICS [DO_ATMOSPHERIC_PHYS]',myThid)          CALL TIMER_STOP( 'AIM_DO_PHYSICS [DO_ATMOSPHERIC_PHYS]',myThid)
         ENDIF  
   
 C--   end bi,bj loops.  
        ENDDO  
       ENDDO  
 #endif /* ALLOW_AIM */  
   
 #ifdef ALLOW_AIM  
       IF ( useAIM ) THEN  
         CALL AIM_AIM2DYN_EXCHANGES( myTime, myIter, myThid )  
68        ENDIF        ENDIF
69  #endif /* ALLOW_AIM */  #endif /* ALLOW_AIM */
70    
71  #ifdef ALLOW_DEBUG  #ifdef ALLOW_DEBUG
72        IF ( debugLevel .GE. debLevB )        IF (debugMode) CALL DEBUG_LEAVE('DO_ATMOSPHERIC_PHYS',myThid)
      &  CALL DEBUG_LEAVE('DO_ATMOSPHERIC_PHYS',myThid)  
73  #endif  #endif
74    
75        RETURN        RETURN
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.10
  ViewVC Help
Powered by ViewVC 1.1.22