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	jmc	1.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