/[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.11 by stephd, Mon Dec 3 20:49:55 2007 UTC revision 1.12 by dfer, Wed Dec 5 16:52:32 2007 UTC
# Line 88  C First call requires that we initialize Line 88  C First call requires that we initialize
88            QSW_underice=.FALSE.            QSW_underice=.FALSE.
89  #ifdef USE_QSW_UNDERICE  #ifdef USE_QSW_UNDERICE
90            QSW_underice=.TRUE.            QSW_underice=.TRUE.
91  #endif  #elif (defined (ALLOW_SEAICE) && defined (USE_QSW))
 #if (defined (ALLOW_SEAICE) && defined (USE_QSW))  
92  c if using Qsw and seaice, then ice fraction is already  c if using Qsw and seaice, then ice fraction is already
93  c taken into account  c taken into account
94            QSW_underice=.TRUE.            QSW_underice=.TRUE.
95  #endif  #elif (defined (ALLOW_THSICE) && defined (USE_QSW))
 #if (defined (ALLOW_THSICE) && defined (USE_QSW))  
96            QSW_underice=.TRUE.            QSW_underice=.TRUE.
97  #endif  #endif
98    
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22