pkg/ebm/ebm_driver.F

d8206d87ee Patr*0001 #include "EBM_OPTIONS.h"
                0002
                0003       SUBROUTINE EBM_DRIVER( myTime, myIter, myThid )
                0004 C     |==========================================================|
                0005 C     | S/R top level for EBM                                    |
                0006 C     |==========================================================|
                0007 C      References:
                0008 C      * X. Wang, P. Stone and J. Marotzke, 1999:
                0009 C        Global thermohaline circulation. Part I:
                0010 C        Sensitivity to atmospheric moisture transport.
                0011 C        J. Climate 12(1), 71-82
                0012 C      * X. Wang, P. Stone and J. Marotzke, 1999:
                0013 C        Global thermohaline circulation. Part II:
                0014 C        Sensitivity with interactive transport.
                0015 C        J. Climate 12(1), 83-91
                0016 C      * M. Nakamura, P. Stone and J. Marotzke, 1994:
                0017 C        Destabilization of the thermohaline circulation
                0018 C        by atmospheric eddy transports.
                0019 C        J. Climate 7(12), 1870-1882
                0020
                0021       IMPLICIT NONE
                0022
                0023 C     === Global variables ===
                0024 #include "SIZE.h"
                0025 #include "EEPARAMS.h"
                0026 #include "PARAMS.h"
                0027 #include "FFIELDS.h"
                0028 #include "DYNVARS.h"
                0029 #include "GRID.h"
                0030 #ifdef ALLOW_EBM
                0031 # include "EBM.h"
                0032 #endif
                0033
                0034 C     === Routine arguments ===
                0035 C     myThid - Instance number for this innvocation
                0036       INTEGER myThid
                0037       INTEGER myIter
                0038       _RL myTime
                0039
                0040 CEndOfInterface
                0041 C     == Local variables ==
                0042
                0043 #ifdef ALLOW_EBM
                0044
                0045 c--   Compute zonal mean SST
                0046       CALL EBM_ZONALMEAN  ( myTime, myIter, myThid )
                0047
                0048 c--   Compute area mean SST in NH/SH tropica and mid-lat
                0049       CALL EBM_AREA_T    ( myTime, myIter, myThid )
                0050
                0051 c--   Comopute qnet, empmr via EBM
                0052       CALL EBM_ATMOSPHERE ( myTime, myIter, myThid )
                0053
                0054 c--   Compute random wind perturbation
                0055       CALL EBM_WIND_PERTURB( myTime, myIter, myThid )
                0056
                0057 #endif /* ALLOW_EBM */
                0058
                0059       RETURN
                0060       END
                0061
                0062
                0063