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 |
|
|
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 |
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 |