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