pkg/atm_compon_interf/atm_store_my_data.F

c04db39328 Jean*0001 #include "ATM_CPL_OPTIONS.h"
a9cdd26a43 Jean*0002
4ff1cd5702 Jean*0003 CBOP
                0004 C     !ROUTINE: ATM_STORE_MY_DATA
                0005 C     !INTERFACE:
12983a4149 Jean*0006       SUBROUTINE ATM_STORE_MY_DATA(
4ff1cd5702 Jean*0007      I                              myTime, myIter, myThid )
                0008
                0009 C     !DESCRIPTION: \bv
                0010 C     *==========================================================*
                0011 C     | SUBROUTINE ATM_STORE_MY_DATA
ece6c362bf Jean*0012 C     | o Routine for controlling storage of some coupling data
                0013 C     |   (e.g. fluxes) to coupler layer.
                0014 C     |   Note: some other coupling fields (e.g. state variables)
                0015 C     |    are stored from elsewhere, just before sending to CPL
4ff1cd5702 Jean*0016 C     *==========================================================*
                0017 C     | This version interfaces to the MITgcm AIMPHYS package.
                0018 C     *==========================================================*
                0019 C     \ev
                0020
                0021 C     !USES:
a9cdd26a43 Jean*0022       IMPLICIT NONE
                0023
5a2fc21c93 Jean*0024 C     == Global variables ==
                0025 #include "SIZE.h"
                0026 #include "EEPARAMS.h"
                0027 #include "PARAMS.h"
c04db39328 Jean*0028 #include "CPL_PARAMS.h"
5a2fc21c93 Jean*0029
4ff1cd5702 Jean*0030 C     !INPUT/OUTPUT PARAMETERS:
12983a4149 Jean*0031 C     myTime    :: Current internal time.
                0032 C     myIter    :: Current timestep number.
                0033 C     myThid    :: my Thread Id number
a9cdd26a43 Jean*0034       _RL     myTime
4ff1cd5702 Jean*0035       INTEGER myIter
a9cdd26a43 Jean*0036       INTEGER myThid
4ff1cd5702 Jean*0037 CEOP
a9cdd26a43 Jean*0038
5a2fc21c93 Jean*0039 #ifdef COMPONENT_MODULE
12983a4149 Jean*0040 C     !LOCAL VARIABLES:
                0041 C     bi, bj    :: Tile indices
                0042       INTEGER bi,bj
                0043
                0044       DO bj=myByLo(myThid),myByHi(myThid)
                0045        DO bi=myBxLo(myThid),myBxHi(myThid)
a9cdd26a43 Jean*0046
ece6c362bf Jean*0047 C--   Store coupling data ready for export
12983a4149 Jean*0048         CALL ATM_STORE_SURFFLUX(    bi, bj, myTime, myIter, myThid )
                0049         IF ( useAIM ) THEN
                0050          CALL ATM_STORE_AIM_WNDSTR( bi, bj, myTime, myIter, myThid )
                0051         ENDIF
c04db39328 Jean*0052         IF ( useAIM .AND. atm_cplExch_DIC ) THEN
12983a4149 Jean*0053          CALL ATM_STORE_AIM_FIELDS( bi, bj, myTime, myIter, myThid )
                0054         ENDIF
                0055         IF ( useLand ) THEN
                0056          CALL ATM_STORE_LAND(       bi, bj, myTime, myIter, myThid )
                0057         ENDIF
ece6c362bf Jean*0058
                0059 C-    These 2 calls have been moved to CPL_EXPORT_IMPORT_DATA so that model
                0060 C     DynVars and thSIce state-vars are stored (without time averaging over
                0061 C     cpl_atmSendFrq) just before beeing exported to Coupler.
                0062 c       CALL ATM_STORE_DYNVARS(     bi, bj, myTime, myIter, myThid )
1b0deb48dc Jean*0063 c       IF ( useThSIce ) THEN
                0064 c        CALL ATM_STORE_THSICE(     bi, bj, myTime, myIter, myThid )
                0065 c       ENDIF
12983a4149 Jean*0066
                0067 C--   end bi,bj loops.
                0068        ENDDO
                0069       ENDDO
5a2fc21c93 Jean*0070
                0071 #endif /* COMPONENT_MODULE */
a9cdd26a43 Jean*0072
                0073       RETURN
                0074       END