/[MITgcm]/MITgcm_contrib/MPMice/beaufort/code/cpl_saveflux.F
ViewVC logotype

Diff of /MITgcm_contrib/MPMice/beaufort/code/cpl_saveflux.F

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

revision 1.1 by dimitri, Fri Feb 3 14:08:28 2012 UTC revision 1.2 by dimitri, Fri Feb 3 19:13:16 2012 UTC
# Line 41  CEOP Line 41  CEOP
41    
42  #ifdef ALLOW_CPL_MPMICE  #ifdef ALLOW_CPL_MPMICE
43    
44        COMMON /FFIELDS_tmp/        COMMON /FFIELDS_tmp/ fu_tmp, fv_tmp, Qnet_tmp, Qsw_tmp, EmPmR_tmp
      & fu_tmp, fv_tmp, Qnet_tmp, Qsw_tmp, EmPmR_tmp, saltFlux_tmp  
45        _RS  fu_tmp       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  fu_tmp       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
46        _RS  fv_tmp       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  fv_tmp       (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
47        _RS  Qnet_tmp     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)        _RS  Qnet_tmp     (1-OLx:sNx+OLx,1-OLy:sNy+OLy,nSx,nSy)
# Line 60  CEOP Line 59  CEOP
59            Qnet_tmp    (i,j,bi,bj) = Qnet    (i,j,bi,bj)            Qnet_tmp    (i,j,bi,bj) = Qnet    (i,j,bi,bj)
60            Qsw_tmp     (i,j,bi,bj) = Qsw     (i,j,bi,bj)            Qsw_tmp     (i,j,bi,bj) = Qsw     (i,j,bi,bj)
61            EmPmR_tmp   (i,j,bi,bj) = EmPmR   (i,j,bi,bj)            EmPmR_tmp   (i,j,bi,bj) = EmPmR   (i,j,bi,bj)
           saltFlux_tmp(i,j,bi,bj) = saltflux(i,j,bi,bj)  
62           ENDDO           ENDDO
63          ENDDO          ENDDO
64         ENDDO         ENDDO
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.2
  ViewVC Help
Powered by ViewVC 1.1.22