/[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.2 by jmc, Fri May 21 20:00:48 2004 UTC revision 1.3 by jmc, Mon Jun 18 21:28:53 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    C     !ROUTINE: CPL_IMPORT_EXTERNAL_DATA
8    C     !INTERFACE:
9        SUBROUTINE CPL_IMPORT_EXTERNAL_DATA(        SUBROUTINE CPL_IMPORT_EXTERNAL_DATA(
10       I                      myIter, myTime, myThid )       I                      myIter, myTime, myThid )
11  C     /==========================================================\  
12  C     | SUBROUTINE CPL_IMPORT_EXTERNAL_DATA                      |  C     !DESCRIPTION: \bv
13  C     | o Routine for controlling import of coupling data from   |  C     *==========================================================*
14  C     |   coupler layer.                                         |  C     | SUBROUTINE CPL_IMPORT_EXTERNAL_DATA
15  C     |==========================================================|  C     | o Routine for controlling import of coupling data from
16  C     | This version talks to the MIT Coupler. It uses the MIT   |  C     |   coupler layer.
17  C     | Coupler "checkpoint1" library calls.                     |  C     *==========================================================*
18  C     \==========================================================/  C     | This version talks to the MIT Coupler. It uses the MIT
19    C     | Coupler "checkpoint1" library calls.
20    C     *==========================================================*
21    C     \ev
22    
23    C     !USES
24        IMPLICIT NONE        IMPLICIT NONE
25    
26  #include "EEPARAMS.h"  #include "EEPARAMS.h"
27  #include "CPL_PARAMS.h"  #include "CPL_PARAMS.h"
28    
29    C     !INPUT/OUTPUT PARAMETERS:
30  C     == Routine arguments ==  C     == Routine arguments ==
31  C     myIter - Current timestep number.  C     myIter - Current timestep number.
32  C     myTime - Current internal time.  C     myTime - Current internal time.
# Line 26  C     myThid - Thread number for this in Line 34  C     myThid - Thread number for this in
34        INTEGER myIter        INTEGER myIter
35        _RL     myTime        _RL     myTime
36        INTEGER myThid        INTEGER myThid
37  CEndOfInterface  CEOP
38    
39  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
40  C     == Local variables ==  C     == Local variables ==
41    
42  C     Fetch data from coupling layer. Note MIT Coupler checkpoint1  C     Fetch data from coupling layer. Note MIT Coupler checkpoint1
43  C     does not allow asynchronous extraction of data, so ordering  C     does not allow asynchronous extraction of data, so ordering
44  C     has to be consistent with ordering coupling layer.  C     has to be consistent with ordering coupling layer.
45    
46        IF ( (myIter/cplSendFrq_iter)*cplSendFrq_iter .EQ. myIter ) THEN        IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN
47         WRITE(0,*) ' Importing oceanic fields at iteration ', myIter         WRITE(0,*) ' Importing oceanic fields at iteration ', myIter
48         CALL ATM_IMPORT_FIELDS( myThid )         CALL ATM_IMPORT_FIELDS( myThid )
49        ENDIF        ENDIF
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22