pkg/aim_compon_interf/cpl_export_my_data.F

C $Header: $
C $Name:   $  

#include "CPP_OPTIONS.h"

CStartOfInterface
      SUBROUTINE CPL_EXPORT_MY_DATA( 
     I                               myCurrentIter, 
     I                               myCurrentTime, 
     I                               myThid )
C     /==========================================================\
C     | SUBROUTINE CPL_EXPORT_MY_DATA                            |
C     | o Routine for controlling export of coupling data to     |
C     |   coupler layer.                                         |
C     |==========================================================|
C     | This version talks to the MIT Coupler. It uses the MIT   |
C     | Coupler "checkpoint1" library calls.                     |
C     \==========================================================/
      IMPLICIT NONE

#include "EEPARAMS.h"
#include "CPL_PARAMS.h"

C     == Routine arguments ==
C     myCurrentIter - Current timestep number.
C     myCurrentTime - Current internal time.
C     myThid        - Thread number for this instance 
C                     of the routine.
      INTEGER myCurrentIter
      _RL     myCurrentTime
      INTEGER myThid
CEndOfInterface

C     == Local variables ==

C     Send data to coupling layer. Note MIT Coupler checkpoint1
C     does not allow asynchronous posting of data, so ordering has to be
C     consistent with coupling layer ordering.
      IF ( (myCurrentIter/cplSendFrq_iter)*cplSendFrq_iter 
     &      .EQ. myCurrentIter ) THEN
       WRITE(0,*) ' Exporting atmospheric fluxes at iteration ',
     &             myCurrentIter
       CALL ATM_EXPORT_TAUX(       myThid )
       CALL ATM_EXPORT_TAUY(       myThid )
       CALL ATM_EXPORT_HEATFLUX(   myThid )
       CALL ATM_EXPORT_EVMPR(      myThid )
       CALL ATM_EXPORT_RUNOFF(     myThid )
       CALL ATM_EXPORT_UVELGROUND( myThid )
       CALL ATM_EXPORT_VVELGROUND( myThid )
       CALL ATM_EXPORT_QLATENT(    myThid )
       CALL ATM_EXPORT_QSENSIBLE(  myThid )
       CALL ATM_EXPORT_QLONGWAVE(  myThid )
       CALL ATM_EXPORT_QSHORTWAVE( myThid )
      ENDIF

      RETURN
      END
1	C $Header: $
2	C $Name: $
3
4	#include "CPP_OPTIONS.h"
5
6	CStartOfInterface
7	SUBROUTINE CPL_EXPORT_MY_DATA(
8	I myCurrentIter,
9	I myCurrentTime,
10	I myThid )
11	C /==========================================================\
12	C \| SUBROUTINE CPL_EXPORT_MY_DATA \|
13	C \| o Routine for controlling export of coupling data to \|
14	C \| coupler layer. \|
15	C \|==========================================================\|
16	C \| This version talks to the MIT Coupler. It uses the MIT \|
17	C \| Coupler "checkpoint1" library calls. \|
18	C \==========================================================/
19	IMPLICIT NONE
20
21	#include "EEPARAMS.h"
22	#include "CPL_PARAMS.h"
23
24	C == Routine arguments ==
25	C myCurrentIter - Current timestep number.
26	C myCurrentTime - Current internal time.
27	C myThid - Thread number for this instance
28	C of the routine.
29	INTEGER myCurrentIter
30	_RL myCurrentTime
31	INTEGER myThid
32	CEndOfInterface
33
34	C == Local variables ==
35
36	C Send data to coupling layer. Note MIT Coupler checkpoint1
37	C does not allow asynchronous posting of data, so ordering has to be
38	C consistent with coupling layer ordering.
39	IF ( (myCurrentIter/cplSendFrq_iter)*cplSendFrq_iter
40	& .EQ. myCurrentIter ) THEN
41	WRITE(0,*) ' Exporting atmospheric fluxes at iteration ',
42	& myCurrentIter
43	CALL ATM_EXPORT_TAUX( myThid )
44	CALL ATM_EXPORT_TAUY( myThid )
45	CALL ATM_EXPORT_HEATFLUX( myThid )
46	CALL ATM_EXPORT_EVMPR( myThid )
47	CALL ATM_EXPORT_RUNOFF( myThid )
48	CALL ATM_EXPORT_UVELGROUND( myThid )
49	CALL ATM_EXPORT_VVELGROUND( myThid )
50	CALL ATM_EXPORT_QLATENT( myThid )
51	CALL ATM_EXPORT_QSENSIBLE( myThid )
52	CALL ATM_EXPORT_QLONGWAVE( myThid )
53	CALL ATM_EXPORT_QSHORTWAVE( myThid )
54	ENDIF
55
56	RETURN
57	END