/[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.171 by jmc, Thu Aug 7 17:32:03 2014 UTC revision 1.173 by jmc, Fri Aug 15 19:22:06 2014 UTC
# Line 491  CADJ STORE theta (:,:,k,bi,bj) Line 491  CADJ STORE theta (:,:,k,bi,bj)
491  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
492  CADJ STORE salt  (:,:,k,bi,bj)  CADJ STORE salt  (:,:,k,bi,bj)
493  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte
 CADJ STORE gT(:,:,k,bi,bj)  
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  
 CADJ STORE gS(:,:,k,bi,bj)  
 CADJ &     = comlev1_bibj_k, key=kkey, byte=isbyte  
494  # ifdef NONLIN_FRSURF  # ifdef NONLIN_FRSURF
495  cph-test  cph-test
496  CADJ STORE  phiHydC (:,:)  CADJ STORE  phiHydC (:,:)
# Line 649  CADJ STORE gU(:,:,:,bi,bj) = comlev1_bib Line 645  CADJ STORE gU(:,:,:,bi,bj) = comlev1_bib
645            CALL IMPLDIFF(            CALL IMPLDIFF(
646       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
647       I         -1, KappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj),       I         -1, KappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj),
648       U         gU,       U         gU(1-OLx,1-OLy,1,bi,bj),
649       I         myThid )       I         myThid )
650  #ifdef    ALLOW_AUTODIFF_TAMC  #ifdef    ALLOW_AUTODIFF_TAMC
651  CADJ STORE gV(:,:,:,bi,bj) = comlev1_bibj , key=idynkey, byte=isbyte  CADJ STORE gV(:,:,:,bi,bj) = comlev1_bibj , key=idynkey, byte=isbyte
# Line 657  CADJ STORE gV(:,:,:,bi,bj) = comlev1_bib Line 653  CADJ STORE gV(:,:,:,bi,bj) = comlev1_bib
653            CALL IMPLDIFF(            CALL IMPLDIFF(
654       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
655       I         -2, KappaRV, recip_hFacS(1-OLx,1-OLy,1,bi,bj),       I         -2, KappaRV, recip_hFacS(1-OLx,1-OLy,1,bi,bj),
656       U         gV,       U         gV(1-OLx,1-OLy,1,bi,bj),
657       I         myThid )       I         myThid )
658          ENDIF          ENDIF
659    
# Line 681  CADJ STORE vVelD(:,:,:,bi,bj) = comlev1_ Line 677  CADJ STORE vVelD(:,:,:,bi,bj) = comlev1_
677            CALL IMPLDIFF(            CALL IMPLDIFF(
678       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
679       I         0, KappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj),       I         0, KappaRU, recip_hFacW(1-OLx,1-OLy,1,bi,bj),
680       U         vVelD,       U         vVelD(1-OLx,1-OLy,1,bi,bj),
681       I         myThid )       I         myThid )
682  #ifdef    ALLOW_AUTODIFF_TAMC  #ifdef    ALLOW_AUTODIFF_TAMC
683  CADJ STORE uVelD(:,:,:,bi,bj) = comlev1_bibj , key=idynkey, byte=isbyte  CADJ STORE uVelD(:,:,:,bi,bj) = comlev1_bibj , key=idynkey, byte=isbyte
# Line 689  CADJ STORE uVelD(:,:,:,bi,bj) = comlev1_ Line 685  CADJ STORE uVelD(:,:,:,bi,bj) = comlev1_
685            CALL IMPLDIFF(            CALL IMPLDIFF(
686       I         bi, bj, iMin, iMax, jMin, jMax,       I         bi, bj, iMin, iMax, jMin, jMax,
687       I         0, KappaRV, recip_hFacS(1-OLx,1-OLy,1,bi,bj),       I         0, KappaRV, recip_hFacS(1-OLx,1-OLy,1,bi,bj),
688       U         uVelD,       U         uVelD(1-OLx,1-OLy,1,bi,bj),
689       I         myThid )       I         myThid )
690          ENDIF          ENDIF
691  #endif    /* ALLOW_CD_CODE */  #endif    /* ALLOW_CD_CODE */
# Line 762  Cml) Line 758  Cml)
758         CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid)
759         CALL DEBUG_STATS_RL(Nr,gU,'Gu (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,gU,'Gu (DYNAMICS)',myThid)
760         CALL DEBUG_STATS_RL(Nr,gV,'Gv (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,gV,'Gv (DYNAMICS)',myThid)
        CALL DEBUG_STATS_RL(Nr,gT,'Gt (DYNAMICS)',myThid)  
        CALL DEBUG_STATS_RL(Nr,gS,'Gs (DYNAMICS)',myThid)  
761  #ifndef ALLOW_ADAMSBASHFORTH_3  #ifndef ALLOW_ADAMSBASHFORTH_3
762         CALL DEBUG_STATS_RL(Nr,guNm1,'GuNm1 (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,guNm1,'GuNm1 (DYNAMICS)',myThid)
763         CALL DEBUG_STATS_RL(Nr,gvNm1,'GvNm1 (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,gvNm1,'GvNm1 (DYNAMICS)',myThid)
Legend:
Removed from v.1.171  
changed lines
  Added in v.1.173
  ViewVC Help
Powered by ViewVC 1.1.22