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

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

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

revision 1.3 by jmc, Thu Nov 12 01:01:57 2015 UTC revision 1.4 by jmc, Wed Jan 6 00:48:36 2016 UTC
# Line 61  C     i,j    :: Loop counters Line 61  C     i,j    :: Loop counters
61        INTEGER i,j        INTEGER i,j
62    
63  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
64          IF ( useImportThSIce .AND. useThSIce ) THEN
65           IF ( MOD(myIter,cplSendFrq_iter).EQ.0 ) THEN
66    C--   Put thSIce imported fields from the ocean component in thSIce common block
67            DO j=1,sNy
68             DO i=1,sNx
69               iceMask   (i,j,bi,bj) = sIceFrac_cpl (i,j,bi,bj)
70               iceHeight (i,j,bi,bj) = sIceThick_cpl(i,j,bi,bj)
71               snowHeight(i,j,bi,bj) = sIceSnowH_cpl(i,j,bi,bj)
72               Qice1     (i,j,bi,bj) = sIceQ1_cpl   (i,j,bi,bj)
73               Qice2     (i,j,bi,bj) = sIceQ2_cpl   (i,j,bi,bj)
74             ENDDO
75            ENDDO
76           ENDIF
77    C--   end if useImportThSIce & useThSIce
78          ENDIF
79    #endif /* ALLOW_THSICE */
80    
81    #ifdef ALLOW_THSICE
82        IF ( useThSIce ) THEN        IF ( useThSIce ) THEN
83  C--   Put fields from the ocean component in Mixed-layer arrays:  C--   Put fields from the ocean component in Mixed-layer arrays:
84    
# Line 109  C-    fill in v2ocMxL with surf. velocit Line 127  C-    fill in v2ocMxL with surf. velocit
127         ENDIF         ENDIF
128    
129        ELSEIF ( useAtm_Phys ) THEN        ELSEIF ( useAtm_Phys ) THEN
130  #else  #else /* ALLOW_THSICE */
131        IF ( useAtm_Phys ) THEN        IF ( useAtm_Phys ) THEN
132  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
133  C--   supply imported fields to Atm_Phys pkg:  C--   supply imported fields to Atm_Phys pkg:
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22