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

Diff of /MITgcm/pkg/ocn_compon_interf/cpl_import_external_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 5  C $Name$ Line 5  C $Name$
5    
6  CStartOfInterface  CStartOfInterface
7        SUBROUTINE CPL_IMPORT_EXTERNAL_DATA(        SUBROUTINE CPL_IMPORT_EXTERNAL_DATA(
8       I           myCurrentIter, myCurrentTime, myThid )       I           myIter, myTime, myThid )
9  C     /==========================================================\  C     /==========================================================\
10  C     | SUBROUTINE CPL_IMPORT_EXTERNAL_DATA                      |  C     | SUBROUTINE CPL_IMPORT_EXTERNAL_DATA                      |
11  C     | o Routine for controlling import of coupling data from   |  C     | o Routine for controlling import of coupling data from   |
# Line 21  C     \================================= Line 21  C     \=================================
21  #include "PARAMS.h"  #include "PARAMS.h"
22    
23  C     == Routine arguments ==  C     == Routine arguments ==
24  C     myCurrentIter - Current timestep number.  C     myIter - Current timestep number.
25  C     myCurrentTime - Current internal time.  C     myTime - Current internal time.
26  C     myThid        - Thread number for this instance  C     myThid - Thread number for this instance of the routine.
27  C                     of the routine.        INTEGER myIter
28        INTEGER myCurrentIter        _RL     myTime
       _RL     myCurrentTime  
29        INTEGER myThid        INTEGER myThid
30  CEndOfInterface  CEndOfInterface
31    
32  C     == Local variables ==  C     == Local variables ==
33        INTEGER bi,bj        INTEGER bi,bj
34    
35  C     Fetch data from coupling layer. Note MIT Coupler checkpoint1  C-    Fetch data from coupling layer. Note MIT Coupler checkpoint1
36  C     does not allow asynchronous extraction of data, so ordering  C     does not allow asynchronous extraction of data, so ordering
37  C     has to be consistent with ordering coupling layer.  C     has to be consistent with ordering coupling layer.
38        CALL OCN_IMPORT_TAUX (         myThid )        CALL OCN_IMPORT_FIELDS ( myThid )
39        CALL OCN_IMPORT_TAUY (         myThid )  
40        CALL OCN_IMPORT_HEATFLUX (     myThid )  C-    Modify forcing according to Imported fields from coupler
41        CALL OCN_IMPORT_FWFLUX (       myThid )  c     CALL OCN_APPLY_IMPORT( myTime, myIter, myThid )
       CALL OCN_IMPORT_UVELGROUND (   myThid )  
       CALL OCN_IMPORT_VVELGROUND (   myThid )  
       CALL OCN_IMPORT_QLATENT (      myThid )  
       CALL OCN_IMPORT_QSENSIBLE (    myThid )  
       CALL OCN_IMPORT_QLONGWAVE (    myThid )  
       CALL OCN_IMPORT_QSHORTWAVE (   myThid )  
42    
43        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
44         DO bi=myBxLo(myThid),myBxHi(myThid)         DO bi=myBxLo(myThid),myBxHi(myThid)
45          CALL CPL_CALC_DIAGS( bi, bj, myCurrentTime, myThid )          CALL OCN_CPL_DIAGS( bi, bj, myTime, myThid )
46         ENDDO         ENDDO
47        ENDDO        ENDDO
48    
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22