|
||||
File indexing completed on 2018-03-02 18:37:37 UTC
view on githubraw file Latest commit add29e06 on 2018-01-31 20:35:05 UTC7f58e89433 Jean*0001 #include "CPP_OPTIONS.h" 0002 1eb66a0215 Jean*0003 CBOP 0 0004 C !ROUTINE: CPL_RECV_ATM_ATMCONFIG 0005 0006 C !INTERFACE: 7f58e89433 Jean*0007 SUBROUTINE CPL_RECV_ATM_ATMCONFIG 0008 1eb66a0215 Jean*0009 C !DESCRIPTION: 0010 C *==========================================================* 0011 C | SUBROUTINE CPL_RECV_ATM_ATMCONFIG 0012 C | o Routine for receiving atmos config into coupling level. 0013 C *==========================================================* 0014 C | This version talks to the MITgcm general circulation 0015 C | model. For now just get the models land/sea mask. 0016 C *==========================================================* 0017 0018 C !USES: 0019 IMPLICIT NONE 7f58e89433 Jean*0020 C == Global variables == 0021 #include "ATMSIZE.h" 0022 #include "ATMVARS.h" 0023 #include "ATMIDS.h" 1eb66a0215 Jean*0024 #include "CPL_PARAMS.h" 7f58e89433 Jean*0025 1eb66a0215 Jean*0026 C !INPUT/OUTPUT PARAMETERS: 0027 C !LOCAL VARIABLES: 0028 INTEGER tmpFld(1) 0029 CEOP 7f58e89433 Jean*0030 0031 C Get config from atmos component 1eb66a0215 Jean*0032 C o receive number of coupler time-steps the atmos will do 0033 CALL COUPRECV_I4VEC( atmCompName, 0034 I 'nCouplingSteps', 1, 0035 O tmpFld ) 0036 nSteps_atm = tmpFld(1) 0037 0038 C o receive Atmosphere Land/Sea mask 0039 CALL COUPRECV_R8TILES( atmCompName, atmLandName, Nx_atm, Ny_atm, 0040 & landMask_atm ) 7f58e89433 Jean*0041 0042 RETURN 0043 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 |