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

Diff of /MITgcm/pkg/atm_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:44:48 2003 UTC revision 1.2 by jmc, Fri May 21 20:00:48 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 20  C     \================================= Line 20  C     \=================================
20  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
21    
22  C     == Routine arguments ==  C     == Routine arguments ==
23  C     myCurrentIter - Current timestep number.  C     myIter - Current timestep number.
24  C     myCurrentTime - Current internal time.  C     myTime - Current internal time.
25  C     myThid        - Thread number for this instance  C     myThid - Thread number for this instance of the routine.
26  C                     of the routine.        INTEGER myIter
27        INTEGER myCurrentIter        _RL     myTime
       _RL     myCurrentTime  
28        INTEGER myThid        INTEGER myThid
29  CEndOfInterface  CEndOfInterface
30    
31    #ifdef COMPONENT_MODULE
32  C     == Local variables ==  C     == Local variables ==
33    
34  C     Fetch data from coupling layer. Note MIT Coupler checkpoint1  C     Fetch data from coupling layer. Note MIT Coupler checkpoint1
35  C     does not allow asynchronous extraction of data, so ordering  C     does not allow asynchronous extraction of data, so ordering
36  C     has to be consistent with ordering coupling layer.  C     has to be consistent with ordering coupling layer.
37  c     IF ( (myCurrentIter/96)*96 .EQ. myCurrentIter ) THEN  
38        IF ( (myCurrentIter/cplSendFrq_iter)*cplSendFrq_iter        IF ( (myIter/cplSendFrq_iter)*cplSendFrq_iter .EQ. myIter ) THEN
39       &      .EQ. myCurrentIter ) THEN         WRITE(0,*) ' Importing oceanic fields at iteration ', myIter
40         WRITE(0,*) ' Importing fluxes at iteration ', myCurrentIter         CALL ATM_IMPORT_FIELDS( myThid )
        CALL ATM_IMPORT_SST (     myThid )  
41        ENDIF        ENDIF
42    
43    #endif /* COMPONENT_MODULE */
44    
45        RETURN        RETURN
46        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22