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

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

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

revision 1.5 by jmc, Wed Jan 6 00:52:25 2016 UTC revision 1.6 by jmc, Wed Jan 13 21:36:26 2016 UTC
# Line 68  C-    Send data to coupling layer Line 68  C-    Send data to coupling layer
68  C-    Store state variables (without averaging over cplSendFrq_iter time-steps)  C-    Store state variables (without averaging over cplSendFrq_iter time-steps)
69          DO bj=myByLo(myThid),myByHi(myThid)          DO bj=myByLo(myThid),myByHi(myThid)
70           DO bi=myBxLo(myThid),myBxHi(myThid)           DO bi=myBxLo(myThid),myBxHi(myThid)
71  c          CALL ATM_STORE_DYNVARS( bi, bj, myTime, myIter, myThid )             CALL ATM_STORE_DYNVARS( bi, bj, myTime, myIter, myThid )
72             IF ( useThSIce ) THEN             IF ( useThSIce ) THEN
73              CALL ATM_STORE_THSICE( bi, bj, myTime, myIter, myThid )              CALL ATM_STORE_THSICE( bi, bj, myTime, myIter, myThid )
74             ENDIF             ENDIF
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22