/[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.29 by heimbach, Fri Mar 28 04:23:18 2008 UTC revision 1.30 by jmc, Sun Apr 6 03:13:40 2008 UTC
# Line 43  C     i,j,k,bi,bj - Loop counters Line 43  C     i,j,k,bi,bj - Loop counters
43        _RL PSTAR        _RL PSTAR
44        _RS  mask_uice        _RS  mask_uice
45        INTEGER myIter, myTile        INTEGER myIter, myTile
46    #ifdef SEAICE_ALLOW_TD_IF
47  cif(  cif(
48  cif   Helper variable for determining the fraction of sw radiation  cif   Helper variable for determining the fraction of sw radiation
49  cif   penetrating the model's shallowest layer  cif   penetrating the model's shallowest layer
# Line 50  cif   penetrating the model's shallowest Line 51  cif   penetrating the model's shallowest
51        _RL FACTORM,dummyTime        _RL FACTORM,dummyTime
52        INTEGER IMAX        INTEGER IMAX
53  cif)  cif)
54    #endif
55    
56  #ifdef ALLOW_OBCS  #ifdef ALLOW_OBCS
57        INTEGER I_obc, J_obc, kSurface        INTEGER I_obc, J_obc, kSurface
# Line 60  cif) Line 62  cif)
62        ENDIF        ENDIF
63  #endif /* ALLOW_OBCS */  #endif /* ALLOW_OBCS */
64    
65    #ifdef SEAICE_ALLOW_TD_IF
66  cif(  cif(
67  #ifdef SHORTWAVE_HEATING  #ifdef SHORTWAVE_HEATING
68        IMAX = 2        IMAX = 2
# Line 74  cif( Line 77  cif(
77        SWFRACB = swfracba(2)        SWFRACB = swfracba(2)
78  #endif  #endif
79  cif)  cif)
80    #endif
81    
82  C--   Initialise all variables in common blocks:  C--   Initialise all variables in common blocks:
83        DO bj=myByLo(myThid),myByHi(myThid)        DO bj=myByLo(myThid),myByHi(myThid)
Legend:
Removed from v.1.29  
changed lines
  Added in v.1.30
  ViewVC Help
Powered by ViewVC 1.1.22