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