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

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

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

revision 1.5 by jmc, Fri Dec 27 15:46:46 2013 UTC revision 1.6 by gforget, Mon Jan 13 20:49:54 2014 UTC
# Line 411  C--   Implicit vertical advection & diff Line 411  C--   Implicit vertical advection & diff
411  #ifdef INCLUDE_IMPLVERTADV_CODE  #ifdef INCLUDE_IMPLVERTADV_CODE
412        IF ( tempImplVertAdv ) THEN        IF ( tempImplVertAdv ) THEN
413  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
414  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte  CADJ STORE kappaRk(:,:,:) = comlev1_bibj , key=itdkey, byte=isbyte      
415    CADJ STORE gT(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte      
416    CADJ STORE wFld(:,:,:) = comlev1_bibj , key=itdkey, byte=isbyte  
417    CADJ STORE theta(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte  
418    CADJ STORE recip_hFac(:,:,:) = comlev1_bibj , key=itdkey, byte=isbyte    
419  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
420          CALL GAD_IMPLICIT_R(          CALL GAD_IMPLICIT_R(
421       I         tempImplVertAdv, tempVertAdvScheme, GAD_TEMPERATURE,       I         tempImplVertAdv, tempVertAdvScheme, GAD_TEMPERATURE,
# Line 424  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib Line 428  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bib
428        IF     ( implicitDiffusion ) THEN        IF     ( implicitDiffusion ) THEN
429  #endif /* INCLUDE_IMPLVERTADV_CODE */  #endif /* INCLUDE_IMPLVERTADV_CODE */
430  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
431    CADJ STORE kappaRk(:,:,:) = comlev1_bibj , key=itdkey, byte=isbyte      
432  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte  CADJ STORE gT(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte
433  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
434          CALL IMPLDIFF(          CALL IMPLDIFF(
Legend:
Removed from v.1.5  
changed lines
  Added in v.1.6
  ViewVC Help
Powered by ViewVC 1.1.22