|
||||
File indexing completed on 2018-03-02 18:42:46 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC31ebb84b18 Jean*0001 #include "OCN_CPL_OPTIONS.h" 69e21e3ef0 Jean*0002 79e04e6111 Jean*0003 CBOP 0 0004 C !ROUTINE: CPL_EXCH_CONFIGS 0005 0006 C !INTERFACE: 69e21e3ef0 Jean*0007 SUBROUTINE CPL_EXCH_CONFIGS( myThid ) 79e04e6111 Jean*0008 0009 C !DESCRIPTION: 69e21e3ef0 Jean*0010 C *==========================================================* 1a1199da4c Jean*0011 C | SUBROUTINE CPL_EXCH_CONFIGS 0012 C | o Controlling routine for initial config exchange between 0013 C | component models and ocean component. 0014 C | - Oceanic version - 69e21e3ef0 Jean*0015 C *==========================================================* 1a1199da4c Jean*0016 C | Controls the import of configuration information 0017 C | (grid/topography,etc...) from other components and the 0018 C | export of configuration information from this component. 0019 C | The routine does some basic checking on consistency 0020 C | components and summarizes the information that has been 0021 C | imported. 0022 C | The routine will need to be customised for different 0023 C | styles of coupled run. The coupler requires consistency 0024 C | between sending and receiving operations posted by 0025 C | various components. Therefore changes in one component 0026 C | model CPL_EXCH_CONFIG may require changes in other 0027 C | component models CPL_EXCH_CONFIG routines as well 0028 C | as in the coupler EXCH_COMPONENT_CONFIG routine. 69e21e3ef0 Jean*0029 C *==========================================================* 0030 79e04e6111 Jean*0031 C !USES: 0032 IMPLICIT NONE 69e21e3ef0 Jean*0033 C == Global variables == 0034 #include "SIZE.h" 0035 #include "EEPARAMS.h" 31ebb84b18 Jean*0036 c#include "PARAMS.h" 0037 c#include "CPL_PARAMS.h" 69e21e3ef0 Jean*0038 79e04e6111 Jean*0039 C !INPUT/OUTPUT PARAMETERS: 0040 C myThid :: Thread number for this instance of the routine 69e21e3ef0 Jean*0041 INTEGER myThid 0042 1a1199da4c Jean*0043 C !LOCAL VARIABLES: 31ebb84b18 Jean*0044 C errMsg :: error message to print to clog file 1a1199da4c Jean*0045 LOGICAL errFlag 0046 CHARACTER*70 errMsg 31ebb84b18 Jean*0047 c CHARACTER*(MAX_LEN_MBUF) msgBuf 1a1199da4c Jean*0048 CEOP 69e21e3ef0 Jean*0049 31ebb84b18 Jean*0050 errFlag = .FALSE. 0051 errMsg = ' ' 0052 0053 C- Post my configuration information to the coupler "layer". 69e21e3ef0 Jean*0054 CALL OCN_EXPORT_OCNCONFIG( myThid ) 0055 31ebb84b18 Jean*0056 C- Import other component model(s) configuration(s) from the 69e21e3ef0 Jean*0057 C coupler "layer". 0058 C o Get atmospheric model configuration 0059 CALL OCN_IMPORT_ATMCONFIG( myThid ) 0060 31ebb84b18 Jean*0061 C- Summarise coupling config set-up and check for inconsistency 1a1199da4c Jean*0062 _BARRIER 31ebb84b18 Jean*0063 CALL OCN_CHECK_CPLCONFIG( 0064 U errFlag, errMsg, 0065 I myThid ) 1a1199da4c Jean*0066 0067 C-- All procs in World check for error and stop if any 31ebb84b18 Jean*0068 _BEGIN_MASTER( myThid ) 1a1199da4c Jean*0069 CALL MITCPLR_ALL_CHECK( errFlag, errMsg ) 0070 _END_MASTER( myThid ) 31ebb84b18 Jean*0071 1a1199da4c Jean*0072 _BARRIER 69e21e3ef0 Jean*0073 0074 RETURN 0075 END
[ Source navigation ] | [ Diff markup ] | [ Identifier search ] | [ general search ] |
This page was automatically generated from https://github.com/MITgcm/MITgcm by the 2.2.1-MITgcm-0.1 LXR engine. The LXR team |