/[MITgcm]/MITgcm/pkg/thsice/thsice_main.F
ViewVC logotype

Diff of /MITgcm/pkg/thsice/thsice_main.F

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

revision 1.32 by heimbach, Sat Apr 13 20:51:32 2013 UTC revision 1.33 by jmc, Sat Apr 20 23:59:07 2013 UTC
# Line 32  C     === Global variables === Line 32  C     === Global variables ===
32  #include "THSICE_PARAMS.h"  #include "THSICE_PARAMS.h"
33  #include "THSICE_SIZE.h"  #include "THSICE_SIZE.h"
34  #include "THSICE_VARS.h"  #include "THSICE_VARS.h"
 #include "THSICE_TAVE.h"  
 #include "THSICE_COST.h"  
35  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
36    # include "THSICE_TAVE.h"
37    # include "THSICE_COST.h"
38  # include "DYNVARS.h"  # include "DYNVARS.h"
39  # include "tamc.h"  # include "tamc.h"
40  # include "tamc_keys.h"  # include "tamc_keys.h"
# Line 137  CADJ STORE vvel (:,:,1,bi,bj) = comlev1_ Line 137  CADJ STORE vvel (:,:,1,bi,bj) = comlev1_
137           ENDDO           ENDDO
138          ENDDO          ENDDO
139    
140    #ifdef ALLOW_CHEAPAML
141            IF ( .NOT.useCheapAML ) THEN
142    #endif
143    
144          CALL THSICE_GET_OCEAN(          CALL THSICE_GET_OCEAN(
145       I                         bi, bj, myTime, myIter, myThid )       I                         bi, bj, myTime, myIter, myThid )
146    
# Line 196  CADJ STORE tice2(:,:,bi,bj) = comlev1_bi Line 200  CADJ STORE tice2(:,:,bi,bj) = comlev1_bi
200       I                     bi, bj, iMin, iMax, jMin, jMax,       I                     bi, bj, iMin, iMax, jMin, jMax,
201       I                     myTime, myIter, myThid )       I                     myTime, myIter, myThid )
202    
203    #ifdef ALLOW_CHEAPAML
204            ENDIF
205    #endif
206  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
207  CADJ STORE empmr(:,:,bi,bj) = comlev1_bibj, key = ticekey  CADJ STORE empmr(:,:,bi,bj) = comlev1_bibj, key = ticekey
208  CADJ STORE qnet(:,:,bi,bj) = comlev1_bibj, key = ticekey  CADJ STORE qnet(:,:,bi,bj) = comlev1_bibj, key = ticekey
Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33
  ViewVC Help
Powered by ViewVC 1.1.22