/[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.10 by jmc, Fri Apr 27 15:50:40 2007 UTC revision 1.11 by jmc, Thu Aug 30 15:02:51 2007 UTC
# Line 28  C     === Global variables === Line 28  C     === Global variables ===
28  #include "FFIELDS.h"  #include "FFIELDS.h"
29  #include "THSICE_PARAMS.h"  #include "THSICE_PARAMS.h"
30  #include "THSICE_VARS.h"  #include "THSICE_VARS.h"
 #ifdef ALLOW_AUTODIFF_TAMC  
 # include "THSICE_2DYN.h"  
 #endif  
31  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
32  # include "AIM_FFIELDS.h"  # include "AIM_FFIELDS.h"
33  #endif  #endif
# Line 79  C-        fluxes : Line 76  C-        fluxes :
76              icFlxSW (i,j,bi,bj) = 0. _d 0              icFlxSW (i,j,bi,bj) = 0. _d 0
77              icFlxAtm(i,j,bi,bj) = 0. _d 0              icFlxAtm(i,j,bi,bj) = 0. _d 0
78              icFrwAtm(i,j,bi,bj) = 0. _d 0              icFrwAtm(i,j,bi,bj) = 0. _d 0
79  #ifdef ALLOW_AUTODIFF_TAMC  C-        needed when using advection/diffusion:
80              oceFWfx(i,j,bi,bj)  = 0. _d 0              oceFWfx(i,j,bi,bj)  = 0. _d 0
81              oceSflx(i,j,bi,bj)  = 0. _d 0              oceSflx(i,j,bi,bj)  = 0. _d 0
82              oceQnet(i,j,bi,bj)  = 0. _d 0              oceQnet(i,j,bi,bj)  = 0. _d 0
 #endif  
83             ENDDO             ENDDO
84            ENDDO            ENDDO
85  C-        oceanic mixed layer state :  C-        oceanic mixed layer state :
Legend:
Removed from v.1.10  
changed lines
  Added in v.1.11
  ViewVC Help
Powered by ViewVC 1.1.22