/[MITgcm]/MITgcm/pkg/dic/dic_ini_forcing.F
ViewVC logotype

Diff of /MITgcm/pkg/dic/dic_ini_forcing.F

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

revision 1.16 by dfer, Tue Apr 8 20:21:35 2008 UTC revision 1.17 by jmc, Wed Apr 9 00:44:03 2008 UTC
# Line 79  C First call requires that we initialize Line 79  C First call requires that we initialize
79  #endif  #endif
80  #endif  #endif
81    
 #ifdef DIC_BIOTIC  
           QSW_underice=.FALSE.  
 #ifdef USE_QSW_UNDERICE  
           QSW_underice=.TRUE.  
 #elif (defined (ALLOW_SEAICE) && defined (USE_QSW))  
 c if using Qsw and seaice, then ice fraction is already  
 c taken into account  
           QSW_underice=.TRUE.  
 #elif (defined (ALLOW_THSICE) && defined (USE_QSW))  
           QSW_underice=.TRUE.  
 #endif  
 #endif  
   
82  c set reasonable values to those that need at least something  c set reasonable values to those that need at least something
83         DO bj = myByLo(myThid), myByHi(myThid)         DO bj = myByLo(myThid), myByHi(myThid)
84          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17
  ViewVC Help
Powered by ViewVC 1.1.22