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

Diff of /MITgcm/pkg/atm_compon_interf/atm_export_fld.F

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.1 by jmc, Sun Jul 2 22:47:19 2006 UTC revision 1.2 by jmc, Fri Dec 25 19:44:35 2009 UTC
# Line 21  C     |   - reset time and field to zero Line 21  C     |   - reset time and field to zero
21  C     *==========================================================*  C     *==========================================================*
22  C     | This version talks to the MIT Coupler. It uses the MIT  C     | This version talks to the MIT Coupler. It uses the MIT
23  C     | Coupler "checkpoint1" library calls.  C     | Coupler "checkpoint1" library calls.
24    C     | Note: requires arg. array "atmFld" to be shared
25    C     |       (in common block) to work in multi-threaded.
26  C     *==========================================================*  C     *==========================================================*
27  C     \ev  C     \ev
28    
# Line 42  C     myThid     :: my Thread Id number Line 44  C     myThid     :: my Thread Id number
44        INTEGER myThid        INTEGER myThid
45  CEOP  CEOP
46    
47    #ifdef COMPONENT_MODULE
48    C     !LOCAL VARIABLES:
49  C     == Local variables ==  C     == Local variables ==
50  C     recipAvT  :: Temp. for holding reciprocal of averaging period.  C     recipAvT  :: Temp. for holding reciprocal of averaging period.
51  C     i,j,bi,bj :: Loop counters  C     i,j,bi,bj :: Loop counters
# Line 67  C     Convert time integrated heatflux t Line 71  C     Convert time integrated heatflux t
71        ENDDO        ENDDO
72    
73  C     Send atmos. field to coupling layer.  C     Send atmos. field to coupling layer.
74        CALL COMPSEND_R8TILES( atmFldName,        _BARRIER
75       I     sNx, OLx, sNy, OLy, 1, nSx, nSy, atmFld )        _BEGIN_MASTER( myThid )
76          CALL COMPSEND_R8TILES(
77         I              atmFldName, sNx, OLx, sNy, OLy, 1, nSx, nSy,
78         I              atmFld )
79          _END_MASTER( myThid )
80          _BARRIER
81    
82  C     Reset atmos. field & integrated time before accumulating again.  C     Reset atmos. field & integrated time before accumulating again.
83        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
# Line 82  C     Reset atmos. field & integrated ti Line 91  C     Reset atmos. field & integrated ti
91         ENDDO         ENDDO
92        ENDDO        ENDDO
93    
94    #endif /* COMPONENT_MODULE */
95    
96        RETURN        RETURN
97        END        END
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22