106 |
C NOTE, that although the exf package is part of the |
C NOTE, that although the exf package is part of the |
107 |
C distribution, it is not currently maintained, i.e. |
C distribution, it is not currently maintained, i.e. |
108 |
C exf is disabled by default in genmake. |
C exf is disabled by default in genmake. |
109 |
|
#ifdef ALLOW_BULKFORMULAE |
110 |
|
CADJ STORE theta = comlev1, key = ikey_dynamics |
111 |
|
#endif |
112 |
CALL EXF_GETFORCING( mytime, myiter, mythid ) |
CALL EXF_GETFORCING( mytime, myiter, mythid ) |
113 |
#else |
#else |
114 |
CALL TIMER_START('EXTERNAL_FIELDS_LOAD[THE_MAIN_LOOP]',mythid) |
CALL TIMER_START('EXTERNAL_FIELDS_LOAD[THE_MAIN_LOOP]',mythid) |