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

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

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

revision 1.6 by jmc, Thu May 25 18:03:24 2006 UTC revision 1.7 by jmc, Sun Jun 25 22:35:17 2006 UTC
# Line 23  C     === Global variables === Line 23  C     === Global variables ===
23  #include "EEPARAMS.h"  #include "EEPARAMS.h"
24  #include "PARAMS.h"  #include "PARAMS.h"
25  #include "GRID.h"  #include "GRID.h"
26  c #include "DYNVARS.h"  #include "FFIELDS.h"
27  #include "THSICE_PARAMS.h"  #include "THSICE_PARAMS.h"
28  #include "THSICE_VARS.h"  #include "THSICE_VARS.h"
29    
# Line 135  C--     Read initial conditions: Line 135  C--     Read initial conditions:
135          _EXCH_XY_R8(dFdT, myThid)          _EXCH_XY_R8(dFdT, myThid)
136  #endif  #endif
137    
138    #ifdef ATMOSPHERIC_LOADING
139    C--     Initialise Sea-Ice Loading for SeaIce-Dynamics :
140            IF ( useSEAICE ) THEN
141              DO bj = myByLo(myThid), myByHi(myThid)
142               DO bi = myBxLo(myThid), myBxHi(myThid)
143                DO j=1-OLy,sNy+OLy
144                 DO i=1-OLx,sNx+OLx
145                   sIceLoad(i,j,bi,bj) = ( snowHeight(i,j,bi,bj)*rhos
146         &                               + iceHeight(i,j,bi,bj)*rhoi
147         &                               )*iceMask(i,j,bi,bj)
148                 ENDDO
149                ENDDO
150               ENDDO
151              ENDDO
152            ENDIF
153    #endif /* ATMOSPHERIC_LOADING */
154    
155  #endif /* ALLOW_THSICE */  #endif /* ALLOW_THSICE */
156    
157        RETURN        RETURN
Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7
  ViewVC Help
Powered by ViewVC 1.1.22