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

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

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

revision 1.3 by jmc, Sun Jul 2 22:47:19 2006 UTC revision 1.4 by jmc, Mon Jun 18 21:28:52 2007 UTC
# Line 22  C     \ev Line 22  C     \ev
22    
23  C     !USES:  C     !USES:
24        IMPLICIT NONE        IMPLICIT NONE
25    
26  C     == Global variables ==  C     == Global variables ==
27  #include "SIZE.h"  #include "SIZE.h"
28  #include "EEPARAMS.h"  #include "EEPARAMS.h"
# Line 45  C     == Local variables == Line 46  C     == Local variables ==
46  C     Send data to coupling layer. Note MIT Coupler checkpoint1  C     Send data to coupling layer. Note MIT Coupler checkpoint1
47  C     does not allow asynchronous posting of data, so ordering has to be  C     does not allow asynchronous posting of data, so ordering has to be
48  C     consistent with coupling layer ordering.  C     consistent with coupling layer ordering.
49        IF ( (myIter/cplSendFrq_iter)*cplSendFrq_iter .EQ. myIter ) THEN        IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN
50         WRITE(0,*) ' Exporting atmospheric fluxes at iter. ', myIter         WRITE(0,*) ' Exporting atmospheric fluxes at iter. ', myIter
51    
52  C-     export Sea-Level pressure:  C-     export Sea-Level pressure:
# Line 78  C-     export Sea-Ice Mass: Line 79  C-     export Sea-Ice Mass:
79         CALL ATM_EXPORT_FLD( atmSeaIceName,         CALL ATM_EXPORT_FLD( atmSeaIceName,
80       U                      seaIceMass, seaIceTime, myThid )       U                      seaIceMass, seaIceTime, myThid )
81    
82           IF ( atmCpl_exchange_DIC ) THEN
83    C-     export atmospheric CO2:
84             CALL ATM_EXPORT_FLD( atmAirCO2Name,
85         U                        airCO2, airCO2Time, myThid )
86    
87    C-     export surface wind speed:
88             CALL ATM_EXPORT_FLD( atmWSpdName,
89         U                        sWSpeed, sWSpeedTime, myThid )
90    
91    C-     export seaice fraction:
92             CALL ATM_EXPORT_FLD( atmFIceName,
93         U                        fracIce, fracIceTime, myThid )
94           ENDIF
95    
96        ENDIF        ENDIF
97    
98  #endif /* COMPONENT_MODULE */  #endif /* COMPONENT_MODULE */
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22