pkg/atm_compon_interf/atm_store_my_data.F

C $Header: $
C $Name:   $  

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE ATM_STORE_MY_DATA(  bi,bj,
     I                               myIter, 
     I                               myTime, 
     I                               myThid )
C     /==========================================================\
C     | SUBROUTINE ATM_STORE_MY_DATA                             |
C     | o Routine for controlling storage of coupling data to    |
C     |   coupler layer.                                         |
C     |==========================================================|
C     | This version interfaces to the MITgcm AIMPHYS package.   |
C     \==========================================================/
      IMPLICIT NONE

C     == Routine arguments ==
C     bi,bj  - Current tile indices
C     myIter - Current timestep number.
C     myTime - Current internal time.
C     myThid        - Thread number for this instance 
C                     of the routine.
      INTEGER bi,bj
      INTEGER myIter
      _RL     myTime
      INTEGER myThid
CEndOfInterface

C     == Local variables ==

C     Store coupling data ready for export
c     CALL ATM_STORE_TAUX(       bi,bj, myTime, myIter, myThid )
c     CALL ATM_STORE_TAUY(       bi,bj, myTime, myIter, myThid )
      CALL ATM_STORE_HEATFLUX(   bi,bj, myTime, myIter, myThid )
      CALL ATM_STORE_EVMPR(      bi,bj, myTime, myIter, myThid )
      CALL ATM_STORE_RUNOFF(     bi,bj, myTime, myIter, myThid )
      CALL ATM_STORE_UVELGROUND( bi,bj, myTime, myIter, myThid )
      CALL ATM_STORE_VVELGROUND( bi,bj, myTime, myIter, myThid )
      CALL ATM_STORE_QLATENT(    bi,bj, myTime, myIter, myThid )
      CALL ATM_STORE_QSENSIBLE(  bi,bj, myTime, myIter, myThid )
      CALL ATM_STORE_QLONGWAVE(  bi,bj, myTime, myIter, myThid )
      CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid )

      RETURN
      END
1	C $Header: $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CStartOfInterface
7	SUBROUTINE ATM_STORE_MY_DATA( bi,bj,
8	I myIter,
9	I myTime,
10	I myThid )
11	C /==========================================================\
12	C \| SUBROUTINE ATM_STORE_MY_DATA \|
13	C \| o Routine for controlling storage of coupling data to \|
14	C \| coupler layer. \|
15	C \|==========================================================\|
16	C \| This version interfaces to the MITgcm AIMPHYS package. \|
17	C \==========================================================/
18	IMPLICIT NONE
19
20	C == Routine arguments ==
21	C bi,bj - Current tile indices
22	C myIter - Current timestep number.
23	C myTime - Current internal time.
24	C myThid - Thread number for this instance
25	C of the routine.
26	INTEGER bi,bj
27	INTEGER myIter
28	_RL myTime
29	INTEGER myThid
30	CEndOfInterface
31
32	C == Local variables ==
33
34	C Store coupling data ready for export
35	c CALL ATM_STORE_TAUX( bi,bj, myTime, myIter, myThid )
36	c CALL ATM_STORE_TAUY( bi,bj, myTime, myIter, myThid )
37	CALL ATM_STORE_HEATFLUX( bi,bj, myTime, myIter, myThid )
38	CALL ATM_STORE_EVMPR( bi,bj, myTime, myIter, myThid )
39	CALL ATM_STORE_RUNOFF( bi,bj, myTime, myIter, myThid )
40	CALL ATM_STORE_UVELGROUND( bi,bj, myTime, myIter, myThid )
41	CALL ATM_STORE_VVELGROUND( bi,bj, myTime, myIter, myThid )
42	CALL ATM_STORE_QLATENT( bi,bj, myTime, myIter, myThid )
43	CALL ATM_STORE_QSENSIBLE( bi,bj, myTime, myIter, myThid )
44	CALL ATM_STORE_QLONGWAVE( bi,bj, myTime, myIter, myThid )
45	CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid )
46
47	RETURN
48	END