/[MITgcm]/MITgcm/pkg/thsice/thsice_main.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_main.F

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

revision 1.30 by jmc, Thu Apr 4 00:42:06 2013 UTC revision 1.31 by jmc, Thu Apr 4 16:44:34 2013 UTC
# Line 46  CEOP Line 46  CEOP
46  #ifdef ALLOW_THSICE  #ifdef ALLOW_THSICE
47  C     !LOCAL VARIABLES:  C     !LOCAL VARIABLES:
48  C     === Local variables ===  C     === Local variables ===
49    C     qPrcRn    :: Energy content of Precip+RunOff (+=down) [W/m2]
50        INTEGER i,j        INTEGER i,j
51        INTEGER bi,bj        INTEGER bi,bj
52        INTEGER iMin, iMax        INTEGER iMin, iMax
53        INTEGER jMin, jMax        INTEGER jMin, jMax
54        _RL prcAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RL prcAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
55          _RL qPrcRn(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
56  c     _RL evpAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)  c     _RL evpAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
57  c     _RL flxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)  c     _RL flxAtm(1-OLx:sNx+OLx,1-OLy:sNy+OLy)
58  c     _RL flxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy)  c     _RL flxSW (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
# Line 119  CADJ STORE vvel (:,:,1,bi,bj) = comlev1_ Line 121  CADJ STORE vvel (:,:,1,bi,bj) = comlev1_
121          DO j=1-OLy,sNy+OLy          DO j=1-OLy,sNy+OLy
122           DO i=1-OLx,sNx+OLx           DO i=1-OLx,sNx+OLx
123            prcAtm  (i,j,bi,bj) = 0. _d 0            prcAtm  (i,j,bi,bj) = 0. _d 0
124              qPrcRn  (i,j) = 0. _d 0
125           ENDDO           ENDDO
126          ENDDO          ENDDO
127    
# Line 162  C Note: will inline this S/R once thSIce Line 165  C Note: will inline this S/R once thSIce
165  #ifdef ALLOW_EXF  #ifdef ALLOW_EXF
166          IF ( useEXF ) THEN          IF ( useEXF ) THEN
167           CALL THSICE_MAP_EXF(           CALL THSICE_MAP_EXF(
168       I                  iceMask,       I                  iceMask, tOceMxL,
169       O                  prcAtm(1-OLx,1-OLy,bi,bj),       O                  prcAtm(1-OLx,1-OLy,bi,bj),
170       O                  snowPrc(1-OLx,1-OLy,bi,bj),       O                  snowPrc(1-OLx,1-OLy,bi,bj), qPrcRn,
171       O                  icFlxSW(1-OLx,1-OLy,bi,bj),       O                  icFlxSW(1-OLx,1-OLy,bi,bj),
172       I                  iMin,iMax,jMin,jMax, bi,bj, myThid )       I                  iMin,iMax,jMin,jMax, bi,bj, myThid )
173          ENDIF          ENDIF
# Line 198  CADJ STORE sHeating(:,:,bi,bj) = comlev1 Line 201  CADJ STORE sHeating(:,:,bi,bj) = comlev1
201  #endif  #endif
202            CALL THSICE_STEP_FWD(            CALL THSICE_STEP_FWD(
203       I                     bi, bj, iMin, iMax, jMin, jMax,       I                     bi, bj, iMin, iMax, jMin, jMax,
204       I                     prcAtm(1-OLx,1-OLy,bi,bj),       I                     prcAtm(1-OLx,1-OLy,bi,bj), qPrcRn,
205       I                     myTime, myIter, myThid )       I                     myTime, myIter, myThid )
206  #ifndef ALLOW_AUTODIFF_TAMC  #ifndef ALLOW_AUTODIFF_TAMC
207          ENDIF          ENDIF
Legend:
Removed from v.1.30  
changed lines
  Added in v.1.31
  ViewVC Help
Powered by ViewVC 1.1.22