/[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.3 by benw, Mon Jul 2 09:37:48 2012 UTC revision 1.4 by jahn, Mon Jul 30 15:21:51 2012 UTC
# Line 112  C      Normalize by integrated time Line 112  C      Normalize by integrated time
112       &                          DAR_timeave,nR,bi,bj,myThid)       &                          DAR_timeave,nR,bi,bj,myThid)
113           enddo           enddo
114  #endif  #endif
115    #ifdef DAR_DIAG_IRR_AMPS
116             do ii = 1,tlam
117              CALL TIMEAVE_NORMALIZ(c1ave(1-Olx,1-Oly,1,1,1,ii),
118         &                          DAR_timeave,nR,bi,bj,myThid)
119              CALL TIMEAVE_NORMALIZ(c2ave(1-Olx,1-Oly,1,1,1,ii),
120         &                          DAR_timeave,nR,bi,bj,myThid)
121             enddo
122    #endif
123  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
124           do ii = 1,tlam           do ii = 1,tlam
125            CALL TIMEAVE_NORMALIZ(aave(1-Olx,1-Oly,1,1,1,ii),            CALL TIMEAVE_NORMALIZ(aave(1-Olx,1-Oly,1,1,1,ii),
# Line 136  C      Normalize by integrated time Line 144  C      Normalize by integrated time
144       &                          DAR_timeave,nR,bi,bj,myThid)       &                          DAR_timeave,nR,bi,bj,myThid)
145           enddo           enddo
146  #endif  #endif
147    #ifdef DAR_RADTRANS
148             CALL TIMEAVE_NORMALIZ(rmudave(1-Olx,1-Oly,1,1),
149         &                         DAR_timeave,1,bi,bj,myThid)
150    #endif
151    
152  c ANNA_TAVE  c ANNA_TAVE
153  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
# Line 257  c Line 269  c
269       &           myIter,myThid)       &           myIter,myThid)
270           enddo           enddo
271  #endif  #endif
272    #ifdef DAR_DIAG_IRR_AMPS
273             do ii = 1,tlam
274               WRITE(suff,'(A5,I2.2,A1,I10.10)') 'c1ave',
275         &           ii,'.',myIter
276               CALL WRITE_FLD_XYZ_RL(suff,' ',
277         &           c1ave(1-Olx,1-Oly,1,1,1,ii),
278         &           myIter,myThid)
279               WRITE(suff,'(A5,I2.2,A1,I10.10)') 'c2ave',
280         &           ii,'.',myIter
281               CALL WRITE_FLD_XYZ_RL(suff,' ',
282         &           c2ave(1-Olx,1-Oly,1,1,1,ii),
283         &           myIter,myThid)
284             enddo
285    #endif
286  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
287           do ii = 1,tlam           do ii = 1,tlam
288             WRITE(suff,'(A4,I2.2,A1,I10.10)') 'aave',             WRITE(suff,'(A4,I2.2,A1,I10.10)') 'aave',
# Line 299  c Line 325  c
325       &           myIter,myThid)       &           myIter,myThid)
326           enddo           enddo
327  #endif  #endif
328    #ifdef DAR_RADTRANS
329             WRITE(suff,'(A7,A1,I10.10)') 'rmudave',
330         &         '.',myIter
331             CALL WRITE_FLD_XY_RL(suff,' ',
332         &         rmudave(1-Olx,1-Oly,1,1),
333         &         myIter,myThid)
334    #endif
335    
336  c ANNA_TAVE  c ANNA_TAVE
337  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
# Line 425  c Line 458  c
458       &           Eutave(1-OLx,1-OLy,1,1,1,ii),myThid)       &           Eutave(1-OLx,1-OLy,1,1,1,ii),myThid)
459           enddo           enddo
460  #endif  #endif
461    #ifdef DAR_DIAG_IRR_AMPS
462             do ii = 1,tlam
463                DO jj = 1,MAX_LEN_FNAM
464                  name(jj:jj) = ' '
465                ENDDO
466                WRITE(name,'(a,i2.2)') 'dar_c1_',ii
467                CALL MNC_CW_RL_W(pf,'dar_tave',0,0,name,
468         &           c1ave(1-OLx,1-OLy,1,1,1,ii),myThid)
469                WRITE(name,'(a,i2.2)') 'dar_c2_',ii
470                CALL MNC_CW_RL_W(pf,'dar_tave',0,0,name,
471         &           c2ave(1-OLx,1-OLy,1,1,1,ii),myThid)
472             enddo
473    #endif
474  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
475           do ii = 1,tlam           do ii = 1,tlam
476              DO jj = 1,MAX_LEN_FNAM              DO jj = 1,MAX_LEN_FNAM
# Line 464  c Line 510  c
510       &           bbpartave(1-OLx,1-OLy,1,1,1,ii),myThid)       &           bbpartave(1-OLx,1-OLy,1,1,1,ii),myThid)
511           enddo           enddo
512  #endif  #endif
513    #ifdef DAR_RADTRANS
514             DO jj = 1,MAX_LEN_FNAM
515               name(jj:jj) = ' '
516             ENDDO
517             WRITE(name,'(a)') 'dar_rmud'
518             CALL MNC_CW_RL_W(pf,'dar_tave',0,0,name,
519         &        rmudave(1-OLx,1-OLy,1,1),myThid)
520    #endif
521  c ANNA_TAVE  c ANNA_TAVE
522  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
523           do np=1,npmax           do np=1,npmax
# Line 582  C      Reset averages to zero Line 636  C      Reset averages to zero
636       &                                    Nr,bi,bj,myThid)       &                                    Nr,bi,bj,myThid)
637           enddo           enddo
638  #endif  #endif
639    #ifdef DAR_DIAG_IRR_AMPS
640             do ii = 1,tlam
641               CALL TIMEAVE_RESET(c1ave(1-OLx,1-OLy,1,1,1,ii),
642         &                                    Nr,bi,bj,myThid)
643               CALL TIMEAVE_RESET(c2ave(1-OLx,1-OLy,1,1,1,ii),
644         &                                    Nr,bi,bj,myThid)
645             enddo
646    #endif
647  #ifdef DAR_DIAG_ABSORP  #ifdef DAR_DIAG_ABSORP
648           do ii = 1,tlam           do ii = 1,tlam
649             CALL TIMEAVE_RESET(aave(1-OLx,1-OLy,1,1,1,ii),             CALL TIMEAVE_RESET(aave(1-OLx,1-OLy,1,1,1,ii),
# Line 606  C      Reset averages to zero Line 668  C      Reset averages to zero
668       &                                    Nr,bi,bj,myThid)       &                                    Nr,bi,bj,myThid)
669           enddo           enddo
670  #endif  #endif
671    #ifdef DAR_RADTRANS
672             CALL TIMEAVE_RESET(rmudave(1-OLx,1-OLy,1,1),
673         &                                  1,bi,bj,myThid)
674    #endif
675  c ANNA_TAVE  c ANNA_TAVE
676  #ifdef WAVES_DIAG_PCHL  #ifdef WAVES_DIAG_PCHL
677           do np=1,npmax           do np=1,npmax
Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4
  ViewVC Help
Powered by ViewVC 1.1.22