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

Diff of /MITgcm/model/src/salt_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 403  C--   Implicit vertical advection & diff Line 403  C--   Implicit vertical advection & diff
403  #ifdef INCLUDE_IMPLVERTADV_CODE  #ifdef INCLUDE_IMPLVERTADV_CODE
404        IF ( saltImplVertAdv ) THEN        IF ( saltImplVertAdv ) THEN
405  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
406  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte  CADJ STORE kappaRk(:,:,:) = comlev1_bibj , key=itdkey, byte=isbyte      
407    CADJ STORE gS(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte      
408    CADJ STORE wFld(:,:,:) = comlev1_bibj , key=itdkey, byte=isbyte  
409    CADJ STORE salt(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte    
410    CADJ STORE recip_hFac(:,:,:) = comlev1_bibj , key=itdkey, byte=isbyte    
411  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
412          CALL GAD_IMPLICIT_R(          CALL GAD_IMPLICIT_R(
413       I         saltImplVertAdv, saltVertAdvScheme, GAD_SALINITY,       I         saltImplVertAdv, saltVertAdvScheme, GAD_SALINITY,
# Line 416  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bib Line 420  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bib
420        IF     ( implicitDiffusion ) THEN        IF     ( implicitDiffusion ) THEN
421  #endif /* INCLUDE_IMPLVERTADV_CODE */  #endif /* INCLUDE_IMPLVERTADV_CODE */
422  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
423    CADJ STORE kappaRk(:,:,:) = comlev1_bibj , key=itdkey, byte=isbyte      
424  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte  CADJ STORE gS(:,:,:,bi,bj) = comlev1_bibj , key=itdkey, byte=isbyte
425  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
426          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