/[MITgcm]/MITgcm/pkg/diagnostics/diagnostics_fill_state.F
ViewVC logotype

Diff of /MITgcm/pkg/diagnostics/diagnostics_fill_state.F

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

revision 1.42 by jmc, Tue Dec 10 22:24:29 2013 UTC revision 1.43 by rpa, Tue Jun 9 16:31:45 2015 UTC
# Line 370  C     (next fill for these diagnostics w Line 370  C     (next fill for these diagnostics w
370            ENDDO            ENDDO
371           ENDDO           ENDDO
372           CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,0,1,1,myThid)           CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,0,1,1,myThid)
373    #ifdef ALLOW_LAYERS
374             IF ( useLayers ) THEN
375               CALL LAYERS_FILL(tmpMk,1,'TOT',0,Nr,0,1,1,myThid)
376             ENDIF
377    #endif /* ALLOW_LAYERS */        
378          ENDIF          ENDIF
379    
380          IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN          IF ( DIAGNOSTICS_IS_ON('TOTSTEND',myThid) ) THEN
# Line 386  C     (next fill for these diagnostics w Line 391  C     (next fill for these diagnostics w
391            ENDDO            ENDDO
392           ENDDO           ENDDO
393           CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,0,1,1,myThid)           CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,0,1,1,myThid)
394    #ifdef ALLOW_LAYERS
395             IF ( useLayers ) THEN
396               CALL LAYERS_FILL(tmpMk,2,'TOT',0,Nr,0,1,1,myThid)
397             ENDIF
398    #endif /* ALLOW_LAYERS */
399          ENDIF          ENDIF
400    
401  C--   fill momentum state-var diagnostics: end  C--   fill momentum state-var diagnostics: end
# Line 662  C     (previous fill for these diagnosti Line 672  C     (previous fill for these diagnosti
672              ENDDO              ENDDO
673             ENDDO             ENDDO
674             CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,-1,bi,bj,myThid)             CALL DIAGNOSTICS_FILL(tmpMk,'TOTTTEND',0,Nr,-1,bi,bj,myThid)
675    #ifdef ALLOW_LAYERS
676               IF ( useLayers ) THEN
677                 CALL LAYERS_FILL(tmpMk,1,'TOT',0,Nr,-1,bi,bj,myThid)
678               ENDIF
679    #endif /* ALLOW_LAYERS */    
680            ENDDO            ENDDO
681           ENDDO           ENDDO
682          ENDIF          ENDIF
# Line 678  C     (previous fill for these diagnosti Line 693  C     (previous fill for these diagnosti
693              ENDDO              ENDDO
694             ENDDO             ENDDO
695             CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,-1,bi,bj,myThid)             CALL DIAGNOSTICS_FILL(tmpMk,'TOTSTEND',0,Nr,-1,bi,bj,myThid)
696    #ifdef ALLOW_LAYERS
697               IF ( useLayers ) THEN
698                CALL LAYERS_FILL(tmpMk,2,'TOT',0,Nr,-1,bi,bj,myThid)
699               ENDIF
700    #endif /* ALLOW_LAYERS */    
701            ENDDO            ENDDO
702           ENDDO           ENDDO
703          ENDIF          ENDIF
Legend:
Removed from v.1.42  
changed lines
  Added in v.1.43
  ViewVC Help
Powered by ViewVC 1.1.22