/[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.113 by jmc, Fri Jan 28 01:00:13 2005 UTC revision 1.119 by jmc, Mon Jun 27 12:27:19 2005 UTC
# Line 160  C                      index into fVerTe Line 160  C                      index into fVerTe
160        INTEGER i, j        INTEGER i, j
161        INTEGER k, km1, kp1, kup, kDown        INTEGER k, km1, kp1, kup, kDown
162    
       LOGICAL  DIFFERENT_MULTIPLE  
       EXTERNAL DIFFERENT_MULTIPLE  
   
163  #ifdef ALLOW_DIAGNOSTICS  #ifdef ALLOW_DIAGNOSTICS
164        _RL tmpFld  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)        _RL tmpFld  (1-OLx:sNx+OLx,1-OLy:sNy+OLy)
165        LOGICAL  DIAGNOSTICS_IS_ON        LOGICAL  DIAGNOSTICS_IS_ON
# Line 491  Cml) Line 488  Cml)
488        IF ( usediagnostics ) THEN        IF ( usediagnostics ) THEN
489    
490         CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD  ',0,Nr,0,1,1,myThid)         CALL DIAGNOSTICS_FILL(totPhihyd,'PHIHYD  ',0,Nr,0,1,1,myThid)
491    
492           IF ( DIAGNOSTICS_IS_ON('PHIHYDSQ',myThid) ) THEN
493            DO bj = myByLo(myThid), myByHi(myThid)
494            DO bi = myBxLo(myThid), myBxHi(myThid)
495             DO k = 1,Nr
496              DO j = 1,sNy
497               DO i = 1,sNx
498                 tmpFld(i,j) = totPhihyd(i,j,k,bi,bj)*totPhihyd(i,j,k,bi,bj)
499               ENDDO
500              ENDDO
501              CALL DIAGNOSTICS_FILL(tmpFld,'PHIHYDSQ',k,1,2,bi,bj,myThid)
502             ENDDO
503            ENDDO
504            ENDDO
505           ENDIF
506    
507         CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT  ',0,1,0,1,1,myThid)         CALL DIAGNOSTICS_FILL(phiHydLow,'PHIBOT  ',0,1,0,1,1,myThid)
508    
509         IF ( DIAGNOSTICS_IS_ON('PHIBOTSQ',myThid) ) THEN         IF ( DIAGNOSTICS_IS_ON('PHIBOTSQ',myThid) ) THEN
# Line 517  Cml) Line 530  Cml)
530         CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,wVel,'Wvel (DYNAMICS)',myThid)
531         CALL DEBUG_STATS_RL(Nr,theta,'Theta (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,theta,'Theta (DYNAMICS)',myThid)
532         CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,salt,'Salt (DYNAMICS)',myThid)
533         CALL DEBUG_STATS_RL(Nr,Gu,'Gu (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,gU,'Gu (DYNAMICS)',myThid)
534         CALL DEBUG_STATS_RL(Nr,Gv,'Gv (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,gV,'Gv (DYNAMICS)',myThid)
535         CALL DEBUG_STATS_RL(Nr,Gt,'Gt (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,gT,'Gt (DYNAMICS)',myThid)
536         CALL DEBUG_STATS_RL(Nr,Gs,'Gs (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,gS,'Gs (DYNAMICS)',myThid)
537         CALL DEBUG_STATS_RL(Nr,GuNm1,'GuNm1 (DYNAMICS)',myThid)  #ifndef ALLOW_ADAMSBASHFORTH_3
538         CALL DEBUG_STATS_RL(Nr,GvNm1,'GvNm1 (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,guNm1,'GuNm1 (DYNAMICS)',myThid)
539         CALL DEBUG_STATS_RL(Nr,GtNm1,'GtNm1 (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,gvNm1,'GvNm1 (DYNAMICS)',myThid)
540         CALL DEBUG_STATS_RL(Nr,GsNm1,'GsNm1 (DYNAMICS)',myThid)         CALL DEBUG_STATS_RL(Nr,gtNm1,'GtNm1 (DYNAMICS)',myThid)
541           CALL DEBUG_STATS_RL(Nr,gsNm1,'GsNm1 (DYNAMICS)',myThid)
542    #endif
543        ENDIF        ENDIF
544  #endif  #endif
545    
Legend:
Removed from v.1.113  
changed lines
  Added in v.1.119
  ViewVC Help
Powered by ViewVC 1.1.22