/[MITgcm]/MITgcm/model/src/main_do_loop.F
ViewVC logotype

Diff of /MITgcm/model/src/main_do_loop.F

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

revision 1.8 by heimbach, Sat Mar 30 13:25:46 2013 UTC revision 1.9 by heimbach, Sat Apr 13 20:47:18 2013 UTC
# Line 111  c They provide the fields to be stored. Line 111  c They provide the fields to be stored.
111  #  ifdef ALLOW_THSICE  #  ifdef ALLOW_THSICE
112  #   include "THSICE_SIZE.h"  #   include "THSICE_SIZE.h"
113  #   include "THSICE_VARS.h"  #   include "THSICE_VARS.h"
114    #   include "THSICE_COST.h"
115  #  endif  #  endif
116  #  ifdef ALLOW_EBM  #  ifdef ALLOW_EBM
117  #   include "EBM.h"  #   include "EBM.h"
# Line 373  CADJ INIT comlev1_thsice_3 Line 374  CADJ INIT comlev1_thsice_3
374  CADJ &     = COMMON,nchklev_1*snx*nsx*sny*nsy*MaxTsf*nthreads_chkpt  CADJ &     = COMMON,nchklev_1*snx*nsx*sny*nsy*MaxTsf*nthreads_chkpt
375  CADJ INIT comlev1_thsice_4  CADJ INIT comlev1_thsice_4
376  CADJ &     = COMMON,nchklev_1*nsx*nsy*maxpass*nthreads_chkpt  CADJ &     = COMMON,nchklev_1*nsx*nsy*maxpass*nthreads_chkpt
377    CADJ INIT comlev1_thsice_s4t
378    CADJ &     = COMMON,nchklev_1*nsx*nsy*maxtsf*nthreads_chkpt
379  #   endif /* ALLOW_THSICE */  #   endif /* ALLOW_THSICE */
380  c--  c--
381  #   ifdef ALLOW_STREAMICE  #   ifdef ALLOW_STREAMICE
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
  ViewVC Help
Powered by ViewVC 1.1.22