/[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.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           myCurrentIter, myCurrentTime, 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     myCurrentIter - Current timestep number.  C     myIter - Current timestep number.
32  C     myCurrentTime - Current internal time.  C     myTime - Current internal time.
33  C     myThid        - Thread number for this instance  C     myThid - Thread number for this instance of the routine.
34  C                     of the routine.        INTEGER myIter
35        INTEGER myCurrentIter        _RL     myTime
       _RL     myCurrentTime  
36        INTEGER myThid        INTEGER myThid
37  CEndOfInterface  CEOP
38    
39    #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  c     IF ( (myCurrentIter/96)*96 .EQ. myCurrentIter ) THEN  
46        IF ( (myCurrentIter/cplSendFrq_iter)*cplSendFrq_iter        IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN
47       &      .EQ. myCurrentIter ) THEN         WRITE(0,*) ' Importing oceanic fields at iteration ', myIter
48         WRITE(0,*) ' Importing fluxes at iteration ', myCurrentIter         CALL ATM_IMPORT_FIELDS( myThid )
        CALL ATM_IMPORT_SST (     myThid )  
49        ENDIF        ENDIF
50    
51    #endif /* COMPONENT_MODULE */
52    
53        RETURN        RETURN
54        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22