/[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.3 by jmc, Fri Dec 25 19:43:07 2009 UTC revision 1.4 by jmc, Sun Jan 3 19:26:54 2010 UTC
# Line 26  C     !USES Line 26  C     !USES
26  #include "SIZE.h"  #include "SIZE.h"
27  #include "EEPARAMS.h"  #include "EEPARAMS.h"
28  #include "PARAMS.h"  #include "PARAMS.h"
29    #include "CPL_PARAMS.h"
30    
31  C     !INPUT/OUTPUT PARAMETERS:  C     !INPUT/OUTPUT PARAMETERS:
32  C     == Routine arguments ==  C     == Routine arguments ==
# Line 39  CEOP Line 40  CEOP
40    
41  #ifdef COMPONENT_MODULE  #ifdef COMPONENT_MODULE
42  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
 C     == Local variables ==  
       INTEGER bi,bj  
43    
44  C-    Fetch data from coupling layer. Note MIT Coupler checkpoint1  C-    Fetch data from coupling layer. Note MIT Coupler checkpoint1
45  C     does not allow asynchronous extraction of data, so ordering  C     does not allow asynchronous extraction of data, so ordering
# Line 50  C     has to be consistent with ordering Line 49  C     has to be consistent with ordering
49  C-    Modify forcing according to Imported fields from coupler  C-    Modify forcing according to Imported fields from coupler
50  c     CALL OCN_APPLY_IMPORT( myTime, myIter, myThid )  c     CALL OCN_APPLY_IMPORT( myTime, myIter, myThid )
51    
52        DO bj=myByLo(myThid),myByHi(myThid)        IF ( cpl_taveFreq.GT.0. _d 0 ) THEN
53         DO bi=myBxLo(myThid),myBxHi(myThid)  C--   note: will move this "if" inside OCN_CPL_DIAGS when other diags
54          CALL OCN_CPL_DIAGS( bi, bj, myTime, myThid )  C           than time-ave are computed within OCN_CPL_DIAGS.
55         ENDDO          CALL OCN_CPL_DIAGS( myTime, myIter, myThid )
56        ENDDO        ENDIF
57    
58  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
59    
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22