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

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

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

revision 1.2 by jmc, Sat Sep 28 00:19:08 2013 UTC revision 1.3 by jmc, Thu Nov 12 01:02:48 2015 UTC
# Line 1  Line 1 
1  C $Header$  C $Header$
2  C $Name$  C $Name$
3    
4  #include "PACKAGES_CONFIG.h"  #include "ATM_CPL_OPTIONS.h"
 #include "CPP_OPTIONS.h"  
5    
6  CBOP  CBOP
7  C     !ROUTINE: ATM_STORE_THSICE  C     !ROUTINE: ATM_STORE_THSICE
# Line 72  c         seaIceMass(i,j,bi,bj) = seaIce Line 71  c         seaIceMass(i,j,bi,bj) = seaIce
71          ENDDO          ENDDO
72         ENDDO         ENDDO
73    
74        IF ( atmCpl_exchange_DIC ) THEN        IF ( atm_cplExch_DIC ) THEN
75  C     o Accumulate Sea-Ice concentration (no-units) from thSIce pkg  C     o Accumulate Sea-Ice concentration (no-units) from thSIce pkg
76  C       that will be exported to the coupling layer.  C       that will be exported to the coupling layer.
77         cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)         cplTimeFraction = 1. _d 0 / DFLOAT(cplSendFrq_iter)
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22