/[MITgcm]/MITgcm/pkg/seaice/seaice_init_varia.F
ViewVC logotype

Diff of /MITgcm/pkg/seaice/seaice_init_varia.F

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

revision 1.43 by mlosch, Wed Jun 24 08:01:43 2009 UTC revision 1.44 by mlosch, Wed Jun 24 08:56:46 2009 UTC
# Line 42  C     i,j,k,bi,bj - Loop counters Line 42  C     i,j,k,bi,bj - Loop counters
42        INTEGER i, j, k, bi, bj        INTEGER i, j, k, bi, bj
43        _RL PSTAR        _RL PSTAR
44        _RS  mask_uice        _RS  mask_uice
45        INTEGER myIter, myTile        INTEGER myIter, myTile, kSurface
   
46  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
47        INTEGER I_obc, J_obc, kSurface        INTEGER I_obc, J_obc
48    #endif /* ALLOW_OBCS */
49    
50        IF ( buoyancyRelation .EQ. 'OCEANICP' ) THEN        IF ( buoyancyRelation .EQ. 'OCEANICP' ) THEN
51         kSurface        = Nr         kSurface = Nr
52        ELSE        ELSE
53         kSurface        = 1         kSurface = 1
54        ENDIF        ENDIF
 #endif /* ALLOW_OBCS */  
55    
56  C--   Initialise all variables in common blocks:  C--   Initialise all variables in common blocks:
57        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
# Line 367  C--   Read initial snow thickness from f Line 367  C--   Read initial snow thickness from f
367          DO bi=myBxLo(myThid),myBxHi(myThid)          DO bi=myBxLo(myThid),myBxHi(myThid)
368           DO j=1-OLy,sNy+OLy           DO j=1-OLy,sNy+OLy
369            DO i=1-OLx,sNx+OLx            DO i=1-OLx,sNx+OLx
370             HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,1,bi,bj)*             HSALT(i,j,bi,bj)=HEFF(i,j,bi,bj)*salt(i,j,kSurface,bi,bj)*
371       &            ICE2WATR*rhoConstFresh*SEAICE_salinity       &            ICE2WATR*rhoConstFresh*SEAICE_salinity
372            ENDDO            ENDDO
373           ENDDO           ENDDO
Legend:
Removed from v.1.43  
changed lines
  Added in v.1.44
  ViewVC Help
Powered by ViewVC 1.1.22