/[MITgcm]/MITgcm/pkg/atm_compon_interf/atm_store_my_data.F
ViewVC logotype

Diff of /MITgcm/pkg/atm_compon_interf/atm_store_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 17  C     | This version interfaces to the M Line 17  C     | This version interfaces to the M
17  C     \==========================================================/  C     \==========================================================/
18        IMPLICIT NONE        IMPLICIT NONE
19    
20    C     == Global variables ==
21    #include "SIZE.h"
22    #include "EEPARAMS.h"
23    #include "PARAMS.h"
24    
25  C     == Routine arguments ==  C     == Routine arguments ==
26  C     bi,bj  - Current tile indices  C     bi,bj  - Current tile indices
27  C     myIter - Current timestep number.  C     myIter - Current timestep number.
# Line 29  C                     of the routine. Line 34  C                     of the routine.
34        INTEGER myThid        INTEGER myThid
35  CEndOfInterface  CEndOfInterface
36    
37    #ifdef COMPONENT_MODULE
38  C     == Local variables ==  C     == Local variables ==
39    
40  C     Store coupling data ready for export  C     Store coupling data ready for export
41          CALL ATM_STORE_ATMSLP(     bi,bj, myTime, myIter, myThid )
42          CALL ATM_STORE_HEATFLUX(   bi,bj, myTime, myIter, myThid )
43          CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid )
44    c     CALL ATM_STORE_QSENSIBLE(  bi,bj, myTime, myIter, myThid )
45    c     CALL ATM_STORE_QLATENT(    bi,bj, myTime, myIter, myThid )
46    c     CALL ATM_STORE_QLONGWAVE(  bi,bj, myTime, myIter, myThid )
47    c     CALL ATM_STORE_UVELGROUND( bi,bj, myTime, myIter, myThid )
48    c     CALL ATM_STORE_VVELGROUND( bi,bj, myTime, myIter, myThid )
49  c     CALL ATM_STORE_TAUX(       bi,bj, myTime, myIter, myThid )  c     CALL ATM_STORE_TAUX(       bi,bj, myTime, myIter, myThid )
50  c     CALL ATM_STORE_TAUY(       bi,bj, myTime, myIter, myThid )  c     CALL ATM_STORE_TAUY(       bi,bj, myTime, myIter, myThid )
       CALL ATM_STORE_HEATFLUX(   bi,bj, myTime, myIter, myThid )  
51        CALL ATM_STORE_EVMPR(      bi,bj, myTime, myIter, myThid )        CALL ATM_STORE_EVMPR(      bi,bj, myTime, myIter, myThid )
52        CALL ATM_STORE_RUNOFF(     bi,bj, myTime, myIter, myThid )        IF ( useLand ) THEN
53        CALL ATM_STORE_UVELGROUND( bi,bj, myTime, myIter, myThid )          CALL ATM_STORE_RUNOFF(   bi,bj, myTime, myIter, myThid )
54        CALL ATM_STORE_VVELGROUND( bi,bj, myTime, myIter, myThid )          CALL ATM_STORE_ROENFX(   bi,bj, myTime, myIter, myThid )
55        CALL ATM_STORE_QLATENT(    bi,bj, myTime, myIter, myThid )        ENDIF
56        CALL ATM_STORE_QSENSIBLE(  bi,bj, myTime, myIter, myThid )        IF ( useThSIce ) THEN
57        CALL ATM_STORE_QLONGWAVE(  bi,bj, myTime, myIter, myThid )          CALL ATM_STORE_SALTFX(   bi,bj, myTime, myIter, myThid )
58        CALL ATM_STORE_QSHORTWAVE( bi,bj, myTime, myIter, myThid )          CALL ATM_STORE_SEAICE(   bi,bj, myTime, myIter, myThid )
59          ENDIF
60    
61    #endif /* COMPONENT_MODULE */
62    
63        RETURN        RETURN
64        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22