396 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
397 |
|
|
398 |
diagName = 'UVELPHI ' |
diagName = 'UVELPHI ' |
399 |
diagTitle = DIAGS_MK_TITLE( 'Zonal Transp of ' |
diagTitle = DIAGS_MK_TITLE( 'Zonal Mass-Weight Transp of ' |
400 |
I //pTitle//' Anomaly', myThid ) |
I //pTitle//' Anomaly', myThid ) |
401 |
diagUnits = 'm^3/s^3 ' |
diagUnits = 'm^3/s^3 ' |
402 |
WRITE(diagCode,'(A,I3.3,A)') 'UU ',diagNum+2,'MR ' |
WRITE(diagCode,'(A,I3.3,A)') 'UU ',diagNum+2,'MR ' |
404 |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
I diagName, diagCode, diagUnits, diagTitle, myThid ) |
405 |
|
|
406 |
diagName = 'VVELPHI ' |
diagName = 'VVELPHI ' |
407 |
diagTitle = DIAGS_MK_TITLE( 'Meridional Transp of ' |
diagTitle = DIAGS_MK_TITLE( 'Meridional Mass-Weight Transp of ' |
408 |
I //pTitle//' Anomaly', myThid ) |
I //pTitle//' Anomaly', myThid ) |
409 |
diagUnits = 'm^3/s^3 ' |
diagUnits = 'm^3/s^3 ' |
410 |
WRITE(diagCode,'(A,I3.3,A)') 'VV ', diagNum ,'MR ' |
WRITE(diagCode,'(A,I3.3,A)') 'VV ', diagNum ,'MR ' |