/[MITgcm]/MITgcm/pkg/aim_compon_interf/cpl_export_my_data.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_compon_interf/cpl_export_my_data.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Mon Dec 15 02:44:48 2003 UTC revision 1.2 by jmc, Fri May 21 20:00:48 2004 UTC
# Line 5  C $Name$ Line 5  C $Name$
5    
6  CStartOfInterface  CStartOfInterface
7        SUBROUTINE CPL_EXPORT_MY_DATA(        SUBROUTINE CPL_EXPORT_MY_DATA(
8       I                               myCurrentIter,       I               myIter, myTime, myThid )
      I                               myCurrentTime,  
      I                               myThid )  
9  C     /==========================================================\  C     /==========================================================\
10  C     | SUBROUTINE CPL_EXPORT_MY_DATA                            |  C     | SUBROUTINE CPL_EXPORT_MY_DATA                            |
11  C     | o Routine for controlling export of coupling data to     |  C     | o Routine for controlling export of coupling data to     |
# Line 22  C     \================================= Line 20  C     \=================================
20  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
21    
22  C     == Routine arguments ==  C     == Routine arguments ==
23  C     myCurrentIter - Current timestep number.  C     myIter - Current timestep number.
24  C     myCurrentTime - Current internal time.  C     myTime - Current internal time.
25  C     myThid        - Thread number for this instance  C     myThid - Thread number for this instance of the routine.
26  C                     of the routine.        INTEGER myIter
27        INTEGER myCurrentIter        _RL     myTime
       _RL     myCurrentTime  
28        INTEGER myThid        INTEGER myThid
29  CEndOfInterface  CEndOfInterface
30    
31    #ifdef COMPONENT_MODULE
32  C     == Local variables ==  C     == Local variables ==
33    
34  C     Send data to coupling layer. Note MIT Coupler checkpoint1  C     Send data to coupling layer. Note MIT Coupler checkpoint1
35  C     does not allow asynchronous posting of data, so ordering has to be  C     does not allow asynchronous posting of data, so ordering has to be
36  C     consistent with coupling layer ordering.  C     consistent with coupling layer ordering.
37        IF ( (myCurrentIter/cplSendFrq_iter)*cplSendFrq_iter        IF ( (myIter/cplSendFrq_iter)*cplSendFrq_iter .EQ. myIter ) THEN
38       &      .EQ. myCurrentIter ) THEN         WRITE(0,*) ' Exporting atmospheric fluxes at iter. ', myIter
39         WRITE(0,*) ' Exporting atmospheric fluxes at iteration ',         CALL ATM_EXPORT_ATMSLP(     myThid )
40       &             myCurrentIter         CALL ATM_EXPORT_HEATFLUX(   myThid )
41           CALL ATM_EXPORT_QSHORTWAVE( myThid )
42    c      CALL ATM_EXPORT_QLATENT(    myThid )
43    c      CALL ATM_EXPORT_QSENSIBLE(  myThid )
44    c      CALL ATM_EXPORT_QLONGWAVE(  myThid )
45    c      CALL ATM_EXPORT_UVELGROUND( myThid )
46    c      CALL ATM_EXPORT_VVELGROUND( myThid )
47         CALL ATM_EXPORT_TAUX(       myThid )         CALL ATM_EXPORT_TAUX(       myThid )
48         CALL ATM_EXPORT_TAUY(       myThid )         CALL ATM_EXPORT_TAUY(       myThid )
        CALL ATM_EXPORT_HEATFLUX(   myThid )  
49         CALL ATM_EXPORT_EVMPR(      myThid )         CALL ATM_EXPORT_EVMPR(      myThid )
50         CALL ATM_EXPORT_RUNOFF(     myThid )         CALL ATM_EXPORT_RUNOFF(     myThid )
51         CALL ATM_EXPORT_UVELGROUND( myThid )         CALL ATM_EXPORT_ROENFX(     myThid )
52         CALL ATM_EXPORT_VVELGROUND( myThid )         CALL ATM_EXPORT_SALTFX(     myThid )
53         CALL ATM_EXPORT_QLATENT(    myThid )         CALL ATM_EXPORT_SEAICE(     myThid )
        CALL ATM_EXPORT_QSENSIBLE(  myThid )  
        CALL ATM_EXPORT_QLONGWAVE(  myThid )  
        CALL ATM_EXPORT_QSHORTWAVE( myThid )  
54        ENDIF        ENDIF
55    
56    #endif /* COMPONENT_MODULE */
57    
58        RETURN        RETURN
59        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22