/[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.2 by jmc, Fri May 21 20:00:48 2004 UTC revision 1.3 by jmc, Mon Jun 18 21:28:52 2007 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$    C $Name$
3    
4  #include "CPP_OPTIONS.h"  #include "CPP_OPTIONS.h"
5    
6  CStartOfInterface  CBOP
7        SUBROUTINE ATM_STORE_MY_DATA(  bi,bj,  C     !ROUTINE: ATM_STORE_MY_DATA
8       I                               myIter,  C     !INTERFACE:
9       I                               myTime,        SUBROUTINE ATM_STORE_MY_DATA( bi,bj,
10       I                               myThid )       I                              myTime, myIter, myThid )
11  C     /==========================================================\  
12  C     | SUBROUTINE ATM_STORE_MY_DATA                             |  C     !DESCRIPTION: \bv
13  C     | o Routine for controlling storage of coupling data to    |  C     *==========================================================*
14  C     |   coupler layer.                                         |  C     | SUBROUTINE ATM_STORE_MY_DATA
15  C     |==========================================================|  C     | o Routine for controlling storage of coupling data to
16  C     | This version interfaces to the MITgcm AIMPHYS package.   |  C     |   coupler layer.
17  C     \==========================================================/  C     *==========================================================*
18    C     | This version interfaces to the MITgcm AIMPHYS package.
19    C     *==========================================================*
20    C     \ev
21    
22    C     !USES:
23        IMPLICIT NONE        IMPLICIT NONE
24    
25  C     == Global variables ==  C     == Global variables ==
26  #include "SIZE.h"  #include "SIZE.h"
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
28  #include "PARAMS.h"  #include "PARAMS.h"
29    #include "ATMIDS.h"
30    
31    C     !INPUT/OUTPUT PARAMETERS:
32  C     == Routine arguments ==  C     == Routine arguments ==
33  C     bi,bj  - Current tile indices  C     bi,bj   :: Current tile indices
34  C     myIter - Current timestep number.  C     myTime  :: Current internal time.
35  C     myTime - Current internal time.  C     myIter  :: Current timestep number.
36  C     myThid        - Thread number for this instance  C     myThid  :: my Thread Id number
 C                     of the routine.  
37        INTEGER bi,bj        INTEGER bi,bj
       INTEGER myIter  
38        _RL     myTime        _RL     myTime
39          INTEGER myIter
40        INTEGER myThid        INTEGER myThid
41  CEndOfInterface  CEOP
42    
43  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
44  C     == Local variables ==  C     == Local variables ==
# Line 57  c     CALL ATM_STORE_TAUY(       bi,bj, Line 63  c     CALL ATM_STORE_TAUY(       bi,bj,
63          CALL ATM_STORE_SALTFX(   bi,bj, myTime, myIter, myThid )          CALL ATM_STORE_SALTFX(   bi,bj, myTime, myIter, myThid )
64          CALL ATM_STORE_SEAICE(   bi,bj, myTime, myIter, myThid )          CALL ATM_STORE_SEAICE(   bi,bj, myTime, myIter, myThid )
65        ENDIF        ENDIF
66          IF ( atmCpl_exchange_DIC ) THEN
67            CALL ATM_STORE_WSPEED(   bi,bj, myTime, myIter, myThid )
68            IF ( useThSIce )
69         &  CALL ATM_STORE_FRACICE(  bi,bj, myTime, myIter, myThid )
70          ENDIF
71    
72  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
73    
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22