/[MITgcm]/MITgcm/pkg/aim_v23/aim_aim2dyn.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_aim2dyn.F

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

revision 1.6 by jmc, Tue Mar 28 04:26:21 2006 UTC revision 1.7 by jmc, Thu Jan 21 00:11:16 2010 UTC
# Line 3  C $Name$ Line 3  C $Name$
3    
4  #include "AIM_OPTIONS.h"  #include "AIM_OPTIONS.h"
5    
6  CStartOfInterface  CBOP
7    C     !ROUTINE: AIM_AIM2DYN
8    C     !INTERFACE:
9        SUBROUTINE AIM_AIM2DYN(        SUBROUTINE AIM_AIM2DYN(
10       I           bi, bj, myTime, myIter, myThid)       I                        bi, bj, myTime, myIter, myThid )
11    
12    C     !DESCRIPTION: \bv
13  C     *==========================================================*  C     *==========================================================*
14  C     | S/R AIM_AIM2DYN                                          |  C     | S/R AIM_AIM2DYN
15  C     | o Remap AIM outputs to dynamics conforming arrays.       |  C     | o Remap AIM outputs to dynamics conforming arrays.
16  C     |==========================================================*  C     |==========================================================*
17  C     | Currently AIM exports to the dynmaics                    |  C     | Currently AIM exports to the dynmaics
18  C     |  - PBL drag coefficient                                  |  C     |  - PBL drag coefficient
19  C     |  - Net tendency for temperature                          |  C     |  - Net tendency for temperature
20  C     |  - Net tendency for water vapor                          |  C     |  - Net tendency for water vapor
21  C     | Exporting drag has the nice property that it is a scalar.|  C     | Exporting drag has the nice property that it is a scalar.
22  C     | This means that the exchanges on the AIM exported fields |  C     | This means that the exchanges on the AIM exported fields
23  C     | do not need special piaring on the cube. It may not be   |  C     | do not need special piaring on the cube. It may not be
24  C     | a good idea in the long term as it makes assumptions     |  C     | a good idea in the long term as it makes assumptions
25  C     | about the momentum schemes within AIM.                   |  C     | about the momentum schemes within AIM.
26  C     *==========================================================*  C     *==========================================================*
27    C     \ev
28  C-------  C-------
29  C  Note: Except LSC tendency, all others need to be /dpFac.  C  Note: Except LSC tendency, all others need to be /dpFac.
30  C-------  C-------
31    
32    C     !USES:
33        IMPLICIT NONE        IMPLICIT NONE
34    
35  C     == Global data ==  C     == Global variables ===
36  C-- size for MITgcm & Physics package :  C-- size for MITgcm & Physics package :
37  #include "AIM_SIZE.h"  #include "AIM_SIZE.h"
38    
# Line 37  C-- size for MITgcm & Physics package : Line 44  C-- size for MITgcm & Physics package :
44  #include "AIM2DYN.h"  #include "AIM2DYN.h"
45  #include "com_physvar.h"  #include "com_physvar.h"
46    
47    C     !INPUT/OUTPUT PARAMETERS:
48  C     == Routine arguments ==  C     == Routine arguments ==
49  C     bi,bj  - Tile index  C     bi,bj  :: Tile index
50  C     myTime - Current time of simulation ( s )  C     myTime :: Current time of simulation ( s )
51  C     myIter - Current iteration number in simulation  C     myIter :: Current iteration number in simulation
52  C     myThid - Number of this instance of the routine  C     myThid :: Number of this instance of the routine
53        INTEGER bi, bj, myIter, myThid        INTEGER bi, bj
54        _RL myTime        _RL     myTime
55  CEndOfInterface        INTEGER myIter, myThid
56    CEOP
57    
58  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
59    C     !LOCAL VARIABLES:
60  C     == Local variables ==  C     == Local variables ==
61  C     i,j,k        :: loop counters  C     i,j,k        :: loop counters
62  C     I2,Katm      :: loop counters  C     I2,Katm      :: loop counters
# Line 60  C     conv_T2theta :: conversion factor Line 70  C     conv_T2theta :: conversion factor
70        EXTERNAL DIAGNOSTICS_IS_ON        EXTERNAL DIAGNOSTICS_IS_ON
71  #endif  #endif
72    
73    C---+----1----+----2----+----3----+----4----+----5----+----6----+----7-|--+----|
74    
75  C--   Physics tendency term  C--   Physics tendency term
76    
77  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22