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

Diff of /MITgcm/pkg/ocn_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:49:09 2003 UTC revision 1.2 by jmc, Fri May 21 19:42:26 2004 UTC
# Line 16  C     | Coupler "checkpoint1" library ca Line 16  C     | Coupler "checkpoint1" library ca
16  C     \==========================================================/  C     \==========================================================/
17        IMPLICIT NONE        IMPLICIT NONE
18    
19    C     == GLobal variables ==
20    #include "EEPARAMS.h"
21    
22  C     == Routine arguments ==  C     == Routine arguments ==
23  C     myCurrentIter - Current timestep number.  C     myCurrentIter - Current timestep number.
24  C     myCurrentTime - Current internal time.  C     myCurrentTime - Current internal time.
# Line 27  C                     of the routine. Line 30  C                     of the routine.
30  CEndOfInterface  CEndOfInterface
31    
32  C     == Local variables ==  C     == Local variables ==
33          INTEGER bi,bj
34    
35          DO bj = myByLo(myThid), myByHi(myThid)
36           DO bi = myBxLo(myThid), myBxHi(myThid)
37            CALL OCN_STORE_MY_DATA(
38         I           myCurrentTime, myCurrentIter, bi,bj, myThid )
39           ENDDO
40          ENDDO
41    
42  C     Send data to coupling layer. Note MIT Coupler checkpoint1  C     Send data to coupling layer. Note MIT Coupler checkpoint1
43  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
44  C     consistent with coupling layer ordering.  C     consistent with coupling layer ordering.
45        CALL OCN_EXPORT_SST (     myThid )        CALL OCN_EXPORT_FIELDS ( myThid )
46    
47        RETURN        RETURN
48        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22