** Warning **
Issuing rollback() due to DESTROY without explicit disconnect() of DBD::mysql::db handle dbname=MITgcm at /usr/local/share/lxr/lib/LXR/Common.pm line 1224.
Last-Modified: Fri, 31 Oct 2024 05:11:45 GMT
Content-Type: text/html; charset=utf-8
MITgcm/MITgcm/pkg/ebm/ebm_driver.F
File indexing completed on 2018-03-02 18:39:17 UTC
view on github raw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC
d8206d87ee Patr* 0001 #include "EBM_OPTIONS.h "
0002
0003 SUBROUTINE EBM_DRIVER ( myTime , myIter , myThid )
0004
0005
0006
0007
0008
0009
0010
0011
0012
0013
0014
0015
0016
0017
0018
0019
0020
0021 IMPLICIT NONE
0022
0023
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
0035
0036 INTEGER myThid
0037 INTEGER myIter
0038 _RL myTime
0039
0040
0041
0042
0043 #ifdef ALLOW_EBM
0044
0045
0046 CALL EBM_ZONALMEAN ( myTime , myIter , myThid )
0047
0048
0049 CALL EBM_AREA_T ( myTime , myIter , myThid )
0050
0051
0052 CALL EBM_ATMOSPHERE ( myTime , myIter , myThid )
0053
0054
0055 CALL EBM_WIND_PERTURB ( myTime , myIter , myThid )
0056
0057 #endif /* ALLOW_EBM */
0058
0059 RETURN
0060 END
0061
0062
0063