3 |
|
|
4 |
#include "AIM_OPTIONS.h" |
#include "AIM_OPTIONS.h" |
5 |
|
|
6 |
SUBROUTINE AIM_DO_ATMOS_PHYSICS( bi, bj, currentTime, myThid ) |
SUBROUTINE AIM_DO_PHYSICS( bi, bj, currentTime, myIter, myThid ) |
7 |
|
|
8 |
C /==================================================================\ |
C /==================================================================\ |
9 |
C | S/R AIM_DO_ATMOS_PHYSICS | |
C | S/R AIM_DO_ATMOS_PHYSICS | |
38 |
C -------------- Routine arguments ----------------------------------- |
C -------------- Routine arguments ----------------------------------- |
39 |
c _RL phi_hyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
c _RL phi_hyd(1-OLx:sNx+OLx,1-OLy:sNy+OLy,Nr) |
40 |
_RL currentTime |
_RL currentTime |
41 |
INTEGER myThid |
INTEGER myIter, myThid |
42 |
INTEGER bi, bj |
INTEGER bi, bj |
43 |
|
|
44 |
#ifdef ALLOW_AIM |
#ifdef ALLOW_AIM |