/[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.8 by jmc, Wed Apr 4 01:55:45 2007 UTC revision 1.9 by heimbach, Mon Apr 16 22:38:24 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"
31    #ifdef ALLOW_AUTODIFF_TAMC
32    # include "THSICE_2DYN.h"
33    #endif
34  #ifdef ALLOW_AIM  #ifdef ALLOW_AIM
35  # include "AIM_FFIELDS.h"  # include "AIM_FFIELDS.h"
36  #endif  #endif
# Line 76  C-        fluxes : Line 79  C-        fluxes :
79              icFlxSW (i,j,bi,bj) = 0. _d 0              icFlxSW (i,j,bi,bj) = 0. _d 0
80              icFlxAtm(i,j,bi,bj) = 0. _d 0              icFlxAtm(i,j,bi,bj) = 0. _d 0
81              icFrwAtm(i,j,bi,bj) = 0. _d 0              icFrwAtm(i,j,bi,bj) = 0. _d 0
82    #ifdef ALLOW_AUTODIFF_TAMC
83                oceFWfx(i,j,bi,bj)  = 0. _d 0
84                oceSflx(i,j,bi,bj)  = 0. _d 0
85                oceQnet(i,j,bi,bj)  = 0. _d 0
86    #endif
87             ENDDO             ENDDO
88            ENDDO            ENDDO
89  C-        oceanic mixed layer state :  C-        oceanic mixed layer state :
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22