/[MITgcm]/MITgcm_contrib/darwin2/pkg/darwin/darwin_diags.F
ViewVC logotype

Diff of /MITgcm_contrib/darwin2/pkg/darwin/darwin_diags.F

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

revision 1.2 by stephd, Wed May 11 18:11:56 2011 UTC revision 1.3 by benw, Mon Jul 2 09:37:48 2012 UTC
# Line 75  C      Normalize by integrated time Line 75  C      Normalize by integrated time
75       &                 bi,bj,myThid)       &                 bi,bj,myThid)
76           CALL TIMEAVE_NORMALIZ(PPave, DAR_timeave, nR ,           CALL TIMEAVE_NORMALIZ(PPave, DAR_timeave, nR ,
77       &                 bi,bj,myThid)       &                 bi,bj,myThid)
78    #ifdef QUOTA_DIAG_LIMIT
79             do np=1,npmax
80               CALL TIMEAVE_NORMALIZ(Nlimave(1-Olx,1-Oly,1,1,1,np),
81         &                          DAR_timeave, nR ,bi,bj,myThid)
82               CALL TIMEAVE_NORMALIZ(Flimave(1-Olx,1-Oly,1,1,1,np),
83         &                          DAR_timeave, nR ,bi,bj,myThid)
84               CALL TIMEAVE_NORMALIZ(Ilimave(1-Olx,1-Oly,1,1,1,np),
85         &                          DAR_timeave, nR ,bi,bj,myThid)
86             enddo
87             CALL TIMEAVE_NORMALIZ(Tlimave,DAR_timeave, nR ,
88         &                                           bi,bj,myThid)
89    #endif
90  #ifndef ALLOW_QUOTA  #ifndef ALLOW_QUOTA
91           CALL TIMEAVE_NORMALIZ(Chlave, DAR_timeave, nR ,           CALL TIMEAVE_NORMALIZ(Chlave, DAR_timeave, nR ,
92       &                 bi,bj,myThid)       &                 bi,bj,myThid)
# Line 367  c Line 379  c
379       &        pf,'dar_tave',0,0,'dar_PAR_ave',PARave,myThid)       &        pf,'dar_tave',0,0,'dar_PAR_ave',PARave,myThid)
380           CALL MNC_CW_RL_W(           CALL MNC_CW_RL_W(
381       &        pf,'dar_tave',0,0,'dar_PP_ave',PPave,myThid)       &        pf,'dar_tave',0,0,'dar_PP_ave',PPave,myThid)
382    #ifdef QUOTA_DIAG_LIMIT
383             do np=1,npmax
384                WRITE(name,'(a,i3.3)') 'dar_Nlim_',np
385                CALL MNC_CW_RL_W(pf,'dar_tave',0,0,name,
386         &           Nlimave(1-OLx,1-OLy,1,1,1,np),myThid)
387                WRITE(name,'(a,i3.3)') 'dar_Flim_',np
388                CALL MNC_CW_RL_W(pf,'dar_tave',0,0,name,
389         &           Flimave(1-OLx,1-OLy,1,1,1,np),myThid)
390                WRITE(name,'(a,i3.3)') 'dar_Ilim_',np
391                CALL MNC_CW_RL_W(pf,'dar_tave',0,0,name,
392         &           Ilimave(1-OLx,1-OLy,1,1,1,np),myThid)
393             enddo
394             CALL MNC_CW_RL_W(
395         &        pf,'dar_tave',0,0,'dar_Tlim_ave',Tlimave,myThid)
396    #endif
397  #ifndef ALLOW_QUOTA  #ifndef ALLOW_QUOTA
398           CALL MNC_CW_RL_W(           CALL MNC_CW_RL_W(
399       &        pf,'dar_tave',0,0,'dar_Chl_ave',Chlave,myThid)       &        pf,'dar_tave',0,0,'dar_Chl_ave',Chlave,myThid)
# Line 529  C      Reset averages to zero Line 556  C      Reset averages to zero
556          DO bi = myBxLo(myThid), myBxHi(myThid)          DO bi = myBxLo(myThid), myBxHi(myThid)
557           CALL TIMEAVE_RESET(PARave,Nr,bi,bj,myThid)           CALL TIMEAVE_RESET(PARave,Nr,bi,bj,myThid)
558           CALL TIMEAVE_RESET(PPave,Nr,bi,bj,myThid)           CALL TIMEAVE_RESET(PPave,Nr,bi,bj,myThid)
559    #ifdef QUOTA_DIAG_LIMIT
560             CALL TIMEAVE_RESET(Nlimave,Nr,bi,bj,myThid)
561             CALL TIMEAVE_RESET(Flimave,Nr,bi,bj,myThid)
562             CALL TIMEAVE_RESET(Ilimave,Nr,bi,bj,myThid)
563             CALL TIMEAVE_RESET(Tlimave,Nr,bi,bj,myThid)
564    #endif
565  #ifndef ALLOW_QUOTA  #ifndef ALLOW_QUOTA
566           CALL TIMEAVE_RESET(Chlave,Nr,bi,bj,myThid)           CALL TIMEAVE_RESET(Chlave,Nr,bi,bj,myThid)
567  #endif  #endif
Legend:
Removed from v.1.2  
changed lines
  Added in v.1.3
  ViewVC Help
Powered by ViewVC 1.1.22