/[MITgcm]/MITgcm/pkg/generic_advdiff/gad_advection.F
ViewVC logotype

Diff of /MITgcm/pkg/generic_advdiff/gad_advection.F

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

revision 1.11 by jmc, Wed Mar 6 02:01:54 2002 UTC revision 1.12 by heimbach, Sun Mar 24 02:12:50 2002 UTC
# Line 266  CADJ STORE localTij(:,:)  = comlev1_bibj Line 266  CADJ STORE localTij(:,:)  = comlev1_bibj
266         CALL GAD_DST3FL_ADV_X(         CALL GAD_DST3FL_ADV_X(
267       &       bi,bj,k,deltaTtracer,uTrans,uVel,localTij,af,myThid)       &       bi,bj,k,deltaTtracer,uTrans,uVel,localTij,af,myThid)
268        ELSE        ELSE
        write(0,*) advectionScheme  
269         STOP 'GAD_ADVECTION: adv. scheme incompatibale with multi-dim'         STOP 'GAD_ADVECTION: adv. scheme incompatibale with multi-dim'
270        ENDIF        ENDIF
271    
# Line 390  c     kp1=min(Nr,k+1) Line 389  c     kp1=min(Nr,k+1)
389  #ifdef ALLOW_AUTODIFF_TAMC  #ifdef ALLOW_AUTODIFF_TAMC
390  CADJ STORE localTijk(:,:,k)    CADJ STORE localTijk(:,:,k)  
391  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
392    CADJ STORE rTrans(:,:)  
393    CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
394  #endif /* ALLOW_AUTODIFF_TAMC */  #endif /* ALLOW_AUTODIFF_TAMC */
395    
396  C-- Compute Vertical transport  C-- Compute Vertical transport
Legend:
Removed from v.1.11  
changed lines
  Added in v.1.12
  ViewVC Help
Powered by ViewVC 1.1.22