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

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

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

revision 1.83.4.3 by heimbach, Wed Apr 17 14:05:34 2002 UTC revision 1.83.4.4 by dimitri, Wed Feb 19 22:43:51 2003 UTC
# Line 391  C--     end of dynamics k loop (1:Nr) Line 391  C--     end of dynamics k loop (1:Nr)
391  C--     Implicit viscosity  C--     Implicit viscosity
392          IF (implicitViscosity.AND.momStepping) THEN          IF (implicitViscosity.AND.momStepping) THEN
393  #ifdef    ALLOW_AUTODIFF_TAMC  #ifdef    ALLOW_AUTODIFF_TAMC
           idkey = iikey + 3  
394  CADJ STORE gUNm1(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte  CADJ STORE gUNm1(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte
395  #endif    /* ALLOW_AUTODIFF_TAMC */  #endif    /* ALLOW_AUTODIFF_TAMC */
396            CALL IMPLDIFF(            CALL IMPLDIFF(
# Line 400  CADJ STORE gUNm1(:,:,:,bi,bj) = comlev1_ Line 399  CADJ STORE gUNm1(:,:,:,bi,bj) = comlev1_
399       U         gUNm1,       U         gUNm1,
400       I         myThid )       I         myThid )
401  #ifdef    ALLOW_AUTODIFF_TAMC  #ifdef    ALLOW_AUTODIFF_TAMC
           idkey = iikey + 4  
402  CADJ STORE gVNm1(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte  CADJ STORE gVNm1(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte
403  #endif    /* ALLOW_AUTODIFF_TAMC */  #endif    /* ALLOW_AUTODIFF_TAMC */
404            CALL IMPLDIFF(            CALL IMPLDIFF(
# Line 420  C--      Apply open boundary conditions Line 418  C--      Apply open boundary conditions
418    
419  #ifdef    INCLUDE_CD_CODE  #ifdef    INCLUDE_CD_CODE
420  #ifdef    ALLOW_AUTODIFF_TAMC  #ifdef    ALLOW_AUTODIFF_TAMC
           idkey = iikey + 5  
421  CADJ STORE vVelD(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte  CADJ STORE vVelD(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte
422  #endif    /* ALLOW_AUTODIFF_TAMC */  #endif    /* ALLOW_AUTODIFF_TAMC */
423            CALL IMPLDIFF(            CALL IMPLDIFF(
# Line 429  CADJ STORE vVelD(:,:,:,bi,bj) = comlev1_ Line 426  CADJ STORE vVelD(:,:,:,bi,bj) = comlev1_
426       U         vVelD,       U         vVelD,
427       I         myThid )       I         myThid )
428  #ifdef    ALLOW_AUTODIFF_TAMC  #ifdef    ALLOW_AUTODIFF_TAMC
           idkey = iikey + 6  
429  CADJ STORE uVelD(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte  CADJ STORE uVelD(:,:,:,bi,bj) = comlev1_bibj , key=ikey, byte=isbyte
430  #endif    /* ALLOW_AUTODIFF_TAMC */  #endif    /* ALLOW_AUTODIFF_TAMC */
431            CALL IMPLDIFF(            CALL IMPLDIFF(
Legend:
Removed from v.1.83.4.3  
changed lines
  Added in v.1.83.4.4
  ViewVC Help
Powered by ViewVC 1.1.22