/[MITgcm]/MITgcm/pkg/aim_v23/aim_aim2dyn.F
ViewVC logotype

Diff of /MITgcm/pkg/aim_v23/aim_aim2dyn.F

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

revision 1.7 by jmc, Thu Jan 21 00:11:16 2010 UTC revision 1.8 by jmc, Mon Jan 21 21:55:32 2013 UTC
# Line 89  C-    Planetary boundary layer drag coef Line 89  C-    Planetary boundary layer drag coef
89           aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid)           aim_drag(i,j,bi,bj) = DRAG(I2,0,myThid)
90          ENDDO          ENDDO
91        ENDDO        ENDDO
92    #ifdef COMPONENT_MODULE
93          IF ( useCoupler ) THEN
94    C-    Near surface wind speed
95           DO j=1,sNy
96            DO i=1,sNx
97             I2 = i+(j-1)*sNx
98             aim_surfWind(i,j,bi,bj) = SPEED0(I2,myThid)
99            ENDDO
100           ENDDO
101          ENDIF
102    #endif /* COMPONENT_MODULE */
103    
104        DO k=1,Nr        DO k=1,Nr
105         Katm = _KD2KA( k )         Katm = _KD2KA( k )
# Line 139  C-     Account for partial cell filling: Line 150  C-     Account for partial cell filling:
150          ELSE          ELSE
151           DO j=1,sNy           DO j=1,sNy
152           DO i=1,sNx           DO i=1,sNx
153            IF ( k.EQ.ksurfC(i,j,bi,bj) ) THEN            IF ( k.EQ.kSurfC(i,j,bi,bj) ) THEN
154             aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)             aim_dTdt(i,j,k,bi,bj) = aim_dTdt(i,j,k,bi,bj)
155       &                            /hFac_surfC(i,j,bi,bj)       &                            /hFac_surfC(i,j,bi,bj)
156             aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)             aim_dSdt(i,j,k,bi,bj) = aim_dSdt(i,j,k,bi,bj)
Legend:
Removed from v.1.7  
changed lines
  Added in v.1.8
  ViewVC Help
Powered by ViewVC 1.1.22