/[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.3 by jmc, Mon Jun 18 21:28:53 2007 UTC revision 1.4 by jmc, Fri Dec 25 19:42:46 2009 UTC
# Line 7  CBOP Line 7  CBOP
7  C     !ROUTINE: CPL_IMPORT_EXTERNAL_DATA  C     !ROUTINE: CPL_IMPORT_EXTERNAL_DATA
8  C     !INTERFACE:  C     !INTERFACE:
9        SUBROUTINE CPL_IMPORT_EXTERNAL_DATA(        SUBROUTINE CPL_IMPORT_EXTERNAL_DATA(
10       I                      myIter, myTime, myThid )       I                      myTime, myIter, myThid )
11    
12  C     !DESCRIPTION: \bv  C     !DESCRIPTION: \bv
13  C     *==========================================================*  C     *==========================================================*
# Line 28  C     !USES Line 28  C     !USES
28    
29  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
30  C     == Routine arguments ==  C     == Routine arguments ==
31  C     myIter - Current timestep number.  C     myTime  :: Current time in simulation.
32  C     myTime - Current internal time.  C     myIter  :: Current timestep number.
33  C     myThid - Thread number for this instance of the routine.  C     myThid  :: Thread number for this instance of the routine.
       INTEGER myIter  
34        _RL     myTime        _RL     myTime
35          INTEGER myIter
36        INTEGER myThid        INTEGER myThid
37  CEOP  CEOP
38    
39  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
40    C     !LOCAL VARIABLES:
41  C     == Local variables ==  C     == Local variables ==
42    
43  C     Fetch data from coupling layer. Note MIT Coupler checkpoint1  C     Fetch data from coupling layer. Note MIT Coupler checkpoint1
# Line 44  C     does not allow asynchronous extrac Line 45  C     does not allow asynchronous extrac
45  C     has to be consistent with ordering coupling layer.  C     has to be consistent with ordering coupling layer.
46    
47        IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN        IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN
48         WRITE(0,*) ' Importing oceanic fields at iteration ', myIter         _BEGIN_MASTER( myThid )
49           WRITE(0,'(A,I5,A,I10)') '  Importing (pid=', myProcId,
50         &            ' ) oceanic fields at iteration', myIter
51           _END_MASTER( myThid )
52         CALL ATM_IMPORT_FIELDS( myThid )         CALL ATM_IMPORT_FIELDS( myThid )
53        ENDIF        ENDIF
54    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22